Mercurial > hg > CbC > CbC_gcc
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 |