[Bug fortran/26816] New: FLOAT Intrinsic does not work with Integer Halfword input

[bdavis at gcc dot gnu dot org]

[EMAIL PROTECTED] ac_avionics]$ cat b.f
      REAL*4 EW
      INTEGER*2 IH
      IH = 2
      EW = FLOAT(IH)
      PRINT*,EW
      END
[EMAIL PROTECTED] ac_avionics]$ g77 b.f
[EMAIL PROTECTED] ac_avionics]$ ./a.out
  2.
[EMAIL PROTECTED] ac_avionics]$ gfortran b.f
 In file b.f:4

      EW = FLOAT(IH)
                1
Error: Type of argument 'a' in call to 'float' at (1) should be INTEGER(4), not
INTEGER(2)


-- 
           Summary: FLOAT Intrinsic does not work with Integer Halfword
                    input
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis at gcc dot gnu dot org


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