1! { dg-do compile }
2! PR 79312 - assigning a logical value to a real
3! is invalid.
4! Test case by John Harper.
5program emptyarray5
6 implicit none
7 real a(0)
8 a = [logical::] ! { dg-error "Cannot convert LOGICAL" }
9 print *,size(a)
10end program emptyarray5
11