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
Rebase.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr58484.f
blob
2fd791347e9b9b389e5d3db0cfb9634d3d9281c3
1
! {
dg
-
do
compile
}
2
! {
dg
-
options
"-O2"
}
3
SUBROUTINE
UMPSE
(
AIBJ
,
NOC
,
NDIM
,
NOCA
,
NVIRA
,
NOCCA
,
E2
)
4
DIMENSION
AIBJ
(
NOC
,
NDIM
,*)
5
DO
20
MA
=
1
,
NVIRA
6
DO
20
MI
=
1
,
NOCA
7
DO
10
MB
=
1
,
MA
8
MBI
=
MI
+
NOCA*
(
MB
-
1
)
9
DO
10
MJ
=
1
,
NOCCA
10
DUM
=
AIBJ
(
MJ
,
MAI
,
MB
)-
AIBJ
(
MJ
,
MBI
,
MA
)
11
E2A
=
E2A
-
DUM
12
10
CONTINUE
13
20
CONTINUE
14
E2
=
E2
+
E2A
15
END