comparison gcc/testsuite/gfortran.dg/logical_assignment_1.f90 @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
3 ! is invalid. 3 ! is invalid.
4 ! Test case by John Harper. 4 ! Test case by John Harper.
5 program emptyarray5 5 program emptyarray5
6 implicit none 6 implicit none
7 real a(0) 7 real a(0)
8 a = [logical::] ! { dg-error "Can't convert LOGICAL" } 8 a = [logical::] ! { dg-error "Cannot convert LOGICAL" }
9 print *,size(a) 9 print *,size(a)
10 end program emptyarray5 10 end program emptyarray5