flang/test/Semantics/resolve02.f90

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