1! RUN: %python %S/test_errors.py %s %flang_fc1 2! 10.2.1.2p1(1) 3program 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 12end 13