[Bug fortran/14377] New: [fortran] Intrinsic MAX1 returns a REAL result, should be INTEGER

["bdavis9659 at comcast dot net" <gcc-bugzilla at gcc dot gnu dot org>]

Distilled from FM308.FOR in the NIST F77 compiler validation suite.

Small example to demonstrate:

$ cat z.f
      print*,'max1 = ',MAX1(2.3, 3.1, 4.4)
      end

$ /usr/local/bin/gfortran -static z.f
$ ./a.out
max1 =     4.400000

And with g77:

$ g77 z.f
$ ./a.out
 max1 =  4



$ /usr/local/bin/gfortran --version
GNU Fortran 95 (GCC 3.5-tree-ssa 20040301 (merged 20040211))

-- 
           Summary: [fortran] Intrinsic MAX1 returns a REAL result, should
                    be INTEGER
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis9659 at comcast dot net
                CC: gcc-bugs at gcc dot gnu dot org


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