11 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Don't expand scalars for allocatable components.3module m4 type t5 real, allocatable :: a(:)6 end type7 !ERROR: Must be a constant value8 !ERROR: Scalar value cannot be expanded to shape of array component 'a'9 type(t) :: x = t(0.)10end module11