https://gcc.gnu.org/bugzilla/show_bug.cgi?id=50541
--- Comment #7 from Vittorio Zecca <zeccav at gmail dot com> ---
The NAG nagfor and Intel ifort detect the issue.
gfortran -S gfbug81.f
[vitti f95]$nagfor -S gfbug81.f
NAG Fortran Compiler Release 7.0(Yurakucho) Build 7042
Error: gfbug81.f, line 4: Multiply defined symbol S
detected at INTERFACE@S
Warning: gfbug81.f, line 10: Unused local variable S
[NAG Fortran Compiler pass 1 error termination, 1 error, 1 warning]
[vitti f95]$ifort -S gfbug81.f
gfbug81.f(3): error #6449: This name has already been used as a generic
procedure name [S]
pointer s ! gfortran should complain here
--------------^
compilation aborted for gfbug81.f (code 1)
