You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
398 B
16 lines
398 B
! 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
|