16 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Test SELECT TYPE and ASSOCIATE errors: C11033 4subroutine s1()5 class(*),allocatable :: calc[:]6 integer,save :: icoa[*]7 !ERROR: Selector must not be a coindexed object8 associate(sel=>icoa[2])9 end associate10 icoa = 211 allocate(integer::calc[*])12 !ERROR: Selector must not be a coindexed object13 select type(sel=>calc[2])14 end select15end subroutine16