flang/test/Semantics/resolve02.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 subroutine s
   3   !ERROR: Declaration of 'x' conflicts with its use as internal procedure
   4   real :: x
   5 contains
   6   subroutine x
   7   end
   8 end
   9
  10 module m
  11   !ERROR: Declaration of 'x' conflicts with its use as module procedure
  12   real :: x
  13 contains
  14   subroutine x
  15   end
  16 end