flang/test/Semantics/assign11.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! 10.2.1.2p1(1)
   3 program test
   4   class(*), allocatable :: pa
   5   class(*), pointer :: pp
   6   class(*), allocatable :: pac[:]
   7   pa = 1 ! ok
   8   !ERROR: Left-hand side of assignment may not be polymorphic unless assignment is to an entire allocatable
   9   pp = 1
  10   !ERROR: Left-hand side of assignment may not be polymorphic if it is a coarray
  11   pac = 1
  12 end