1! { dg-do compile } 2! 3! PR fortran/60543 4! PR fortran/60283 5! 6module m 7contains 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 20end module m 21 22! { dg-final { scan-module-absence "m" "IMPLICIT_PURE" } } 23