flang/test/Semantics/resolve95.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! RUN: %S/test_errors.sh %s %t %flang_fc1
! 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