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" } }