Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr71935.f90
blob: 495759b1f6f2d91d30a0f4e927a98c6f7fd60b42 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
program p
use
iso_c_binding
character
(
len
=
1
,
kind
=
c_char
),
parameter
::
z
(
2
)
=
'z'
print
*,
sizeof
(
z
(
3
))
!
{
dg
-
warning
"is out of bounds"
}
print
*,
c_sizeof
(
z
(
3
))
!
{
dg
-
warning
"is out of bounds"
}
end