1! RUN: %S/test_errors.sh %s %t %f18 2! Test SELECT TYPE and ASSOCIATE errors: C1103 3 4subroutine s1() 5 class(*),allocatable :: calc[:] 6 integer,save :: icoa[*] 7 !ERROR: Selector must not be a coindexed object 8 associate(sel=>icoa[2]) 9 end associate 10 icoa = 2 11 allocate(integer::calc[*]) 12 !ERROR: Selector must not be a coindexed object 13 select type(sel=>calc[2]) 14 end select 15end subroutine 16