gcc-4.9/gcc/testsuite/gfortran.dg/altreturn_1.f90


1
2
3
4
5
6
7
8
9

! { dg-do compile }
! { dg-options "-std=gnu" }

       subroutine foo (a)
       real t, a, baz
       call bar (*10)
       t = 2 * baz ()
       IF (t.gt.0) t = baz ()
10     END