altreturn_1.f90 « gfortran.dg « testsuite « gcc - maxim-kuvyrkov/gcc-pretty.git - [no description]

index : maxim-kuvyrkov/gcc-pretty.git

[no description]

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/altreturn_1.f90

blob: 0849358697ff14cb4ae8cc10d3067e5751cd72ed (plain)

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