1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Shape conformance checks on assignments 3program test 4 type t 5 integer n 6 end type 7 real :: a0, a1a(2), a1b(3), a2a(2,3), a2b(3,2) 8 type(t) c(10) 9 a0 = 0. ! ok 10 !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches scalar REAL(4) and rank 1 array of REAL(4) 11 a0 = [0.] 12 a1a = 0. ! ok 13 a1a = [(real(j),j=1,2)] ! ok 14 !ERROR: Dimension 1 of left-hand side has extent 2, but right-hand side has extent 3 15 a1a = [(real(j),j=1,3)] 16 !ERROR: Dimension 1 of left-hand side has extent 3, but right-hand side has extent 2 17 a1b = a1a 18 !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches rank 1 array of REAL(4) and rank 2 array of REAL(4) 19 a1a = a2a 20 a1a = a2a(:,1) ! ok 21 a2a = 0. ! ok 22 a2a(:,1) = a1a ! ok 23 !ERROR: Dimension 1 of left-hand side has extent 3, but right-hand side has extent 2 24 a2a(1,:) = a1a 25 !ERROR: Dimension 1 of left-hand side has extent 2, but right-hand side has extent 3 26 a2a = a2b 27 !ERROR: Dimension 1 of left-hand side has extent 10, but right-hand side has extent 0 28 c(1:10) = c(10:1) 29end 30