13 lines
392 B
Fortran
13 lines
392 B
Fortran
! 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
|