Create embedded-5_0-branch branch for development on ARM embedded cores.

[official-gcc.git] / embedded-5_0-branch / gcc / testsuite / gfortran.dg / altreturn_1.f90

! { 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