Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.
! RUN: %S/test_errors.sh %s %t %f18
module m
real :: var
interface i
!ERROR: 'var' is not a subprogram
procedure :: sub, var
!ERROR: Procedure 'bad' not found
procedure :: bad
end interface
interface operator(.foo.)
contains
subroutine sub
end
subroutine s
!ERROR: 'sub' is not a module procedure
module procedure :: sub
interface assignment(=)
subroutine sub(x, y)
real, intent(out) :: x
logical, intent(in) :: y