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