[Bug fortran/24327] Does not detect duplicate symbol names in contains block

["kargl at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #3 from kargl at gcc dot gnu dot org  2006-01-22 00:46 -------
It looks like one or more of pault's patchs has fixed this problem.

kargl[209] gfc4x -c pr24327.f90
 In file pr24327.f90:4

    function foo ()
               1
 In file pr24327.f90:2

real :: foo
          2
Error: Procedure 'foo' at (1) has an explicit interface and must not have
attributes declared at (2)

Adding external attribute I get

kargl[214] gfc4x -c pr24327.f90
 In file pr24327.f90:4

    function foo ()
               1
 In file pr24327.f90:2

real, external :: foo
                    2
Error: Procedure 'foo' at (1) has an explicit interface and must not have attri
butes declared at (2)
 In file pr24327.f90:4

    function foo ()
                  1
Error: EXTERNAL attribute conflicts with FUNCTION attribute in 'foo' at (1)
 In file pr24327.f90:5

    end function foo
      1
Error: Expecting END PROGRAM statement at (1)


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24327