https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96073
Jürgen Reuter <juergen.reuter at desy dot de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Summary|[11 Regression] regression |[11.0 regression]
|in gfc_format_decoder |regression in
| |gfc_format_decoder
--- Comment #2 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Ok, this is triggered by a stupid thing in our own code, but I think the
compiler should not stumble over it. The error appears when there is a routine
that is defined as external, but there is also an explicit interface for it:
module m
implicit none
private
interface
subroutine GetXminM (set, xmin)
integer, intent(in) :: set
real, intent(out) :: xmin
end subroutine GetXminM
end interface
contains
subroutine s ()
real :: xmin
integer :: set
external :: GetXminM
call GetXminM (set, xmin)
end subroutine s
end module m
