llvm-project/flang/test/Semantics/resolve02.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

17 lines
303 B
Fortran
Raw Normal View History

! RUN: %S/test_errors.sh %s %t %flang_fc1
subroutine s
!ERROR: Declaration of 'x' conflicts with its use as internal procedure
real :: x
contains
subroutine x
end
end
module m
!ERROR: Declaration of 'x' conflicts with its use as module procedure
real :: x
contains
subroutine x
end
end