Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr69395.f90
blob: 21229d39464256a7da9bc56d4ac0dcf8b65b183b [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fcoarray=single"
}
program p
real
,
dimension
(
1
,
2
,
1
,
2
,
1
,
2
,
1
,
2
),
codimension
[
1
,
2
,
1
,
2
,
1
,
2
,*]
::
y
real
,
dimension
(
1
,
2
,
1
,
2
,
1
,
2
,
1
,
2
),
codimension
[
1
,
2
,
1
,
2
,
1
,
2
,
1
,*]
::
z
!
{
dg
-
error
"allowed dimensions"
}
end