Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gfortran.dg
/
array_constructor_type_4.f03
blob: d804bfada1b4d53bd8750a53b47e095fcba9bf9a [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
!
PR fortran
/
27997
!
!
Ensure
that
::
is
present
when
a typespec
is
deduced
.
!
PROGRAM test
INTEGER
::
array
(
1
)
INTEGER
=
42
array
=
[
INTEGER
]
IF
(
array
(
1
)
/=
42
)
THEN
CALL abort
()
END
IF
END
PROGRAM test