repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Dead
[official-gcc.git]
/
gomp-20050608-branch
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
convert.f90
blob
777cd132c857bdc2a202a2b544f0f113bdff1bea
1
! 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(<complex>) returns the type kind of the argument.
36
q
=
real
(
z
)
37
end program