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