Compiling the following program gives the error:
procedure(sub) :: x
1
Error: Duplicate PROCEDURE attribute specified at (1)
I think the program is valid and it is also accepted by NAG f95.
module m
implicit none
interface bar
procedure x
end interface bar
procedure(sub) :: x
interface
subroutine sub()
end subroutine sub
end interface
end module m
--
Summary: PROCEDURE in module somtimes wrongly rejected
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Keywords: rejects-valid
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: burnus at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33945