2021-09-06 16:19:20 +08:00
|
|
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
2020-09-09 21:32:51 +08:00
|
|
|
! Test SELECT TYPE and ASSOCIATE errors: C1103
|
|
|
|
|
|
|
|
|
|
subroutine s1()
|
|
|
|
|
class(*),allocatable :: calc[:]
|
|
|
|
|
integer,save :: icoa[*]
|
|
|
|
|
!ERROR: Selector must not be a coindexed object
|
|
|
|
|
associate(sel=>icoa[2])
|
|
|
|
|
end associate
|
|
|
|
|
icoa = 2
|
|
|
|
|
allocate(integer::calc[*])
|
|
|
|
|
!ERROR: Selector must not be a coindexed object
|
|
|
|
|
select type(sel=>calc[2])
|
|
|
|
|
end select
|
|
|
|
|
end subroutine
|
