forked from OSchip/llvm-project
16 lines
398 B
Fortran
16 lines
398 B
Fortran
! RUN: %S/test_errors.sh %s %t %f18
|
|
! 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
|