Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
common_5.f
blob: d4b9614d6fb219c6c4af5fadff869f2f933078c9 [
file
] [
log
] [
blame
]
C
{
dg
-
do
compile
}
C PR
20059
C
Check
that the warning
for
padding works correctly
.
SUBROUTINE PLOTZ
IMPLICIT DOUBLE PRECISION
(
A
-
H
,
O
-
Z
)
COMMON
/
CCPOOL
/
RMIN
,
RMAX
,
ZMIN
,
ZMAX
,
IMIN
,
JMIN
,
IMAX
,
JMAX
,
NFLOP
,
!
{
dg
-
warning
"Padding"
}
$ HTP
C
RETURN
END