OSDN Git Service

(root) / pf3gnuchains / gcc-fork.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
2009-08-20 Thomas Koenig <tkoenig@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / altreturn_1.f90
1 ! { dg-do compile }
2        subroutine foo (a)
3        real t, a, baz
4        call bar (*10)
5        t = 2 * baz ()
6        IF (t.gt.0) t = baz ()
7 10     END
About OSDN
Find Software
Develop Software
Help