Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gfortran.dg
/
array_constructor_type_12.f03
blob: e06fd47991a70194bafb31ba3bcd0f47efe8c4ff [
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
))
call abort
()
end