19 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! 10.2.1.2p1(1)3program test4 class(*), allocatable :: pa5 class(*), pointer :: pp6 class(*), allocatable :: pac[:]7 type t8 real, allocatable :: a9 end type10 type(t) auc[*]11 pa = 1 ! ok12 !ERROR: Left-hand side of intrinsic assignment may not be polymorphic unless assignment is to an entire allocatable13 pp = 114 !ERROR: Left-hand side of intrinsic assignment may not be polymorphic if it is a coarray15 pac = 116 !ERROR: Left-hand side of intrinsic assignment must not be coindexed due to allocatable ultimate component '%a'17 auc[1] = t()18end19