OSDN Git Service

2014-03-20 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / implicit_pure_4.f90
1 ! { dg-do compile }
2 !
3 ! PR fortran/60543
4 ! PR fortran/60283
5 !
6 module m
7 contains
8   REAL(8) FUNCTION random()
9     CALL RANDOM_NUMBER(random)
10   END FUNCTION random
11   REAL(8) FUNCTION random2()
12     block
13       block
14         block
15           CALL RANDOM_NUMBER(random2)
16         end block
17       end block
18     end block
19   END FUNCTION random2
20 end module m
21
22 ! { dg-final { scan-module-absence "m" "IMPLICIT_PURE" } }