[Bug fortran/13432] New: Error incorrectly diagnosed in assumed-length character function.

["tow21 at cam dot ac dot uk" <gcc-bugzilla at gcc dot gnu dot org>]

(gcc tree-ssa snapshot of 20031217)

The following piece of code:

      Function string(label,default) Result(out_string)

      Implicit None
      Character(Len=*) :: out_string
      Character(Len=*), Intent(In) :: label
      Character(Len=*), Intent(In) :: default

      out_string = ''

      End Function string


gives this error message:

parabrisas% gfortran -xf95 -c -O test.f
 In file test.f:1

      Function string(label,default) Result(out_string)
                                                      1
Error: Entity with assumed character length at (1) must be a dummy
argument or a PARAMETER
 In file test.f:1

      Function string(label,default) Result(out_string)
                                                      1
Error: Entity with assumed character length at (1) must be a dummy
argument or a PARAMETER

-- 
           Summary: Error incorrectly diagnosed in assumed-length character
                    function.
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tow21 at cam dot ac dot uk
                CC: gcc-bugs at gcc dot gnu dot org


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