]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/testsuite/gfortran.dg/altreturn_1.f90
projects / thirdparty / gcc.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
re PR fortran/40881 ([F03] warn for obsolescent features)
[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / altreturn_1.f90
1 ! { dg-do compile }
2 ! { dg-options "-std=gnu" }
3
4 subroutine foo (a)
5 real t, a, baz
6 call bar (*10)
7 t = 2 * baz ()
8 IF (t.gt.0) t = baz ()
9 10 END
Mirror of https://gcc.gnu.org/git/gcc.git