1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Don't expand scalars for allocatable components. 3module m 4 type t 5 real, allocatable :: a(:) 6 end type 7 !ERROR: Must be a constant value 8 !ERROR: Scalar value cannot be expanded to shape of array component 'a' 9 type(t) :: x = t(0.) 10end module 11