OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [convert.f90] - Rev 303

Compare with Previous | Blame | View Log

! Program to test conversion.  Does not actualy test the generated code
program convert
   implicit none
   integer(kind=4) i
   integer(kind=8) m
   real(kind=4) r
   real(kind=8) q
   complex(kind=4) c
   complex(kind=8) z

   ! each of these should generate a single intrinsic conversion expression
   i = int(i)
   i = int(m)
   i = int(r)
   i = int(q)
   i = int(c)
   i = int(z)
   m = int(i, kind=8)
   m = int(m, kind=8)
   m = int(r, kind=8)
   m = int(q, kind=8)
   m = int(c, kind=8)
   m = int(z, kind=8)
   r = real(i)
   r = real(m)
   r = real(r)
   r = real(q)
   r = real(c)
   r = real(z, kind=4)
   q = real(i, kind=8)
   q = real(m, kind=8)
   q = real(r, kind=8)
   q = real(q, kind=8)
   q = real(c, kind=8)
   ! Note real(<complex>) returns the type kind of the argument.
   q = real(z)
end program

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.