Dead

[official-gcc.git] / gomp-20050608-branch / gcc / testsuite / gfortran.dg / altreturn_1.f90

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