Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
array_constructor_type_12.f03
blob: a59734fdb8da8c0e135874728efb805f63ceaffb [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
!
PR fortran
/
27997
!
!
Array
constructor
with
typespec
.
!
real
::
a
(
3
)
integer
::
j
(
3
)
a
=
(
/ integer :: 1.4, 2.2, 3.33 /
)
j
=
(
/ 1.4, 2.2, 3.33 /
)
if
(
any
(
a
/=
j
))
STOP
1
end