[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: unassig...@gcc.gnu.org

        ReportedBy: cmwiel...@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



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