[Bug fortran/56503] New: Wrong compiler error message when compiling with default-real-8 option and using intrinsic dble

[cmwieland at gmx dot de]

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

             Bug #: 56503
           Summary: Wrong compiler error message when compiling with
                    default-real-8 option and using intrinsic dble
    Classification: Unclassified
           Product: gcc
           Version: 4.7.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: cmwieland@gmx.de


Hi!

I compile the little program beneath with 
'gfortran -fdefault-integer-8 -fdefault-real-8' command.

I get:
'call t1 ( dble(r4))
          1
Error: Type mismatch in argument 'r' at (1); passed REAL(16) to REAL(8) '

Since r4 is a single precision variable the dble should make a real*8 of it,
or?

The same happens when activating the real*4::r4 declaration in the module.

Thanks,
Maarten


Program, that produces the error:

-----------------------------------

module test

!real*4 :: r4

contains

subroutine t1( r)
real*8 :: r

print*,' hallo r=',r

return
end subroutine t1

end module

program t
use test
real*4 :: r4
r4 = 4
call t1 ( dble(r4))
end program

-----------------------------------