30 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Shape conformance checks on assignments3program test4 type t5 integer n6 end type7 real :: a0, a1a(2), a1b(3), a2a(2,3), a2b(3,2)8 type(t) c(10)9 a0 = 0. ! ok10 !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches scalar REAL(4) and rank 1 array of REAL(4)11 a0 = [0.]12 a1a = 0. ! ok13 a1a = [(real(j),j=1,2)] ! ok14 !ERROR: Dimension 1 of left-hand side has extent 2, but right-hand side has extent 315 a1a = [(real(j),j=1,3)]16 !ERROR: Dimension 1 of left-hand side has extent 3, but right-hand side has extent 217 a1b = a1a18 !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches rank 1 array of REAL(4) and rank 2 array of REAL(4)19 a1a = a2a20 a1a = a2a(:,1) ! ok21 a2a = 0. ! ok22 a2a(:,1) = a1a ! ok23 !ERROR: Dimension 1 of left-hand side has extent 3, but right-hand side has extent 224 a2a(1,:) = a1a25 !ERROR: Dimension 1 of left-hand side has extent 2, but right-hand side has extent 326 a2a = a2b27 !ERROR: Dimension 1 of left-hand side has extent 10, but right-hand side has extent 028 c(1:10) = c(10:1)29end30