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
[AArch64] Merge stores of D-register values with different modes
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr54967.f90
blob
bc6f2de95a5403b0194d92fb49bce748d873fa60
1
SUBROUTINE
calc_S_derivs
()
2
INTEGER
,
DIMENSION
(
6
,
2
) ::
c_map_mat
3
INTEGER
,
DIMENSION
(:),
POINTER
::
C_mat
4
DO
j
=
1
,
3
5
DO
m
=
j
,
3
6
n
=
n
+
1
7
c_map_mat
(
n
,
1
)=
j
8
IF
(
m
==
j
)
CYCLE
9
c_map_mat
(
n
,
2
)=
m
10
END DO
11
END DO
12
DO
m
=
1
,
6
13
DO
j
=
1
,
2
14
IF
(
c_map_mat
(
m
,
j
)==
0
)
CYCLE
15
CALL
foo
(
C_mat
(
c_map_mat
(
m
,
j
)))
16
END DO
17
END DO
18
END SUBROUTINE
calc_S_derivs