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