Sign in
gnu
/
gcc
/
501b3b9ef5be64294f6e51e1e2323b8c9a60adef
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
logical_assignment_1.f90
blob: c22898051183e9d0701e309916a5d1a656711ca8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
79312
-
assigning a logical value to a real
!
is
invalid
.
!
Test
case
by
John
Harper
.
program emptyarray5
implicit
none
real a
(
0
)
a
=
[
logical
::]
!
{
dg
-
error
"Can't convert LOGICAL"
}
print
*,
size
(
a
)
end
program emptyarray5