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