altreturn_1.f90\gfortran.dg\testsuite\gcc - delta/gcc-tarball.git - ftp.gnu.org: gnu/gcc/gcc-7.3.0/gcc-7.3.0.tar.xz

index : delta/gcc-tarball.git

ftp.gnu.org: gnu/gcc/gcc-7.3.0/gcc-7.3.0.tar.xz

summary refs log tree commit diff

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

blob: c0ae15f9a6b20b42c26596295d07b2acc010fd37 (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