53 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Test section subscript3subroutine p14 real :: a(10,10)5 real :: b(5,5)6 real :: c7 integer :: n8 n = 29 b = a(1:10:n,1:n+3)10end11 12! Test substring13subroutine p214 type t1(n1,n2)15 integer,kind :: n1,n216 integer :: c2(iachar('ABCDEFGHIJ'(n1:n1)))17 end type18 character :: a(10)19 character :: b(5)20 character :: c(0)21 integer :: n22 n = 323 b = a(n:7)24 b = a(n+3:)25 b = a(:n+2)26 a(n:7) = b27 a(n+3:) = b28 a(:n+2) = b29 n = iachar(1_'ABCDEFGHIJ'(1:1))30 c = 'ABCDEFGHIJ'(1:0)31end32 33! Test pointer assignment with bounds34subroutine p335 integer, pointer :: a(:,:)36 integer, target :: b(2,2)37 integer :: n38 n = 239 a(n:,n:) => b40 a(1:n,1:n) => b41end42 43! Test pointer assignment to array element44subroutine p445 type :: t46 real, pointer :: a47 end type48 type(t) :: x(10)49 integer :: i50 real, target :: y51 x(i)%a => y52end subroutine53