armfortas Public

Watch 0 Fork 0 Star 0

Fortran · 438 bytes Raw Blame History

  
        1
        ! IMPLICIT NONE inside a MODULE applies to module procedures and
      
        2
        ! their bodies. Audit-level: a module procedure that references an
      
        3
        ! undeclared name must error at compile time, not silently produce
      
        4
        ! a zero-init local that the optimiser will fold to 0.
      
        5
        ! ERROR_EXPECTED: not declared
      
        6
        module mod_strict
      
        7
          implicit none
      
        8
        contains
      
        9
          subroutine bad()
      
        10
            j = 99
      
        11
          end subroutine
      
        12
        end module
      
        13
        program t
      
        14
          use mod_strict
      
        15
          call bad()
      
        16
        end program
      
        17

1	! IMPLICIT NONE inside a MODULE applies to module procedures and
2	! their bodies. Audit-level: a module procedure that references an
3	! undeclared name must error at compile time, not silently produce
4	! a zero-init local that the optimiser will fold to 0.
5	! ERROR_EXPECTED: not declared
6	module mod_strict
7	implicit none
8	contains
9	subroutine bad()
10	j = 99
11	end subroutine
12	end module
13	program t
14	use mod_strict
15	call bad()
16	end program
17