[Bug fortran/23663] New: Compiler fails on valid code

["federico dot carminati at cern dot ch" <gcc-bugzilla at gcc dot gnu dot org>]

The following code does not compile

      function ibug()
      ibug=0
      return
      entry ierror()
      ierror=0
      ierror=max(ierror,1)
      return
      end

error is

[/Users/fca] /opt/gcc-4_0/bin/gfortran -c junk.f
 In file junk.f:6

      ierror=max(ierror,1)                                              
                1
Error: 'a1' argument of 'max' intrinsic at (1) must be INTEGER or REAL

-- 
           Summary: Compiler fails on valid code
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: federico dot carminati at cern dot ch
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: Darwin 8.2.0 Power Macintosh powerpc


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