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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [convert.f90] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
! Program to test conversion.  Does not actualy test the generated code
2
program convert
3
   implicit none
4
   integer(kind=4) i
5
   integer(kind=8) m
6
   real(kind=4) r
7
   real(kind=8) q
8
   complex(kind=4) c
9
   complex(kind=8) z
10
 
11
   ! each of these should generate a single intrinsic conversion expression
12
   i = int(i)
13
   i = int(m)
14
   i = int(r)
15
   i = int(q)
16
   i = int(c)
17
   i = int(z)
18
   m = int(i, kind=8)
19
   m = int(m, kind=8)
20
   m = int(r, kind=8)
21
   m = int(q, kind=8)
22
   m = int(c, kind=8)
23
   m = int(z, kind=8)
24
   r = real(i)
25
   r = real(m)
26
   r = real(r)
27
   r = real(q)
28
   r = real(c)
29
   r = real(z, kind=4)
30
   q = real(i, kind=8)
31
   q = real(m, kind=8)
32
   q = real(r, kind=8)
33
   q = real(q, kind=8)
34
   q = real(c, kind=8)
35
   ! Note real() returns the type kind of the argument.
36
   q = real(z)
37
end program

powered by: WebSVN 2.1.0

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