altreturn_1.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 8 行

! { dg-do compile }
	subroutine foo (a)
	real t, a, baz
	call bar (*10)
	t = 2 * baz ()
	IF (t.gt.0) t = baz ()
10	END