summaryrefslogtreecommitdiff
path: root/flang/test/Semantics/structconst06.f90
blob: d5a40410ea63a116aa01aee1df85680fc6eb6e4a (plain)
1
2
3
4
5
6
7
8
9
! RUN: %python %S/test_errors.py %s %flang_fc1
! Don't expand scalars for allocatable components.
module m
  type t
    real, allocatable :: a(:)
  end type
  !ERROR: Scalar value cannot be expanded to shape of array component 'a'
  type(t) :: x = t(0.)
end module