Sign in
llvm
/
llvm-archive
/
c985600a5f75bb4fc6588e042cd66ae5c36798c8
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
common_size.f90
blob: 936c41e328238f5eef8c4992d091889f9c1b9bc5 [
file
] [
log
] [
blame
]
!
The
size of common
'com1'
should be
80
,
instead of
112.
program common_size
real
(
kind
=
8
)
a
(
8
)
real
(
kind
=
8
)
b
(
5
),
c
(
5
)
common
/
com1
/
b
,
c
equivalence
(
a
(
1
),
b
(
2
))
b
=
100
c
=
200
if
((
a
(
4
)
.
ne
.
100
)
.
or
.
(
a
(
5
)
.
ne
.
200
))
call abort
end