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