Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
oldstyle_5.f
blob: 8a0d3119fb4823a70ad8a4690ab5c6f1d533bdaa [
file
] [
log
] [
blame
]
C
{
dg
-
do
compile
}
TYPE T
INTEGER A
(
2
)/
1
,
2
/
!
{
dg
-
error
"Invalid old style initialization for derived type component"
}
END
TYPE
TYPE S
INTEGER B
/
1
/
!
{
dg
-
error
"Invalid old style initialization for derived type component"
}
END
TYPE
END