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
PR target/83368
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
pr37980.f90
blob
62eccf35ff1dc1c621e3351317757034fbf1d7b3
1
! { dg-options "-O2 " }
2
3
module
INT_MODULE
4
contains
5
pure
function
spher_cartesians
(
in1
)
result
(
out1
)
6
integer
(
kind
=
kind
(
1
)) ::
in1
7
intent
(
in
) ::
in1
8
real
(
kind
=
kind
(
1.0d0
)),
dimension
(
0
:
in1
,
0
:
in1
,
0
:
in1
) ::
mat0
9
mat0
=
0.0d0
10
end function
spher_cartesians
11
end module
INT_MODULE