2 ! Tests fix for PR25070; was no error for actual and assumed shape
3 ! dummy ranks not matching.
4 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
9 integer :: foo (2), y (:)
16 I=RESHAPE((/1,2,3,4/),(/2,2/))
17 CALL TST(I) ! { dg-error "Rank mismatch in argument" }
18 i = foo (i) ! { dg-error "Rank mismatch|Incompatible ranks" }
26 ! { dg-final { cleanup-modules "addon" } }