1! { dg-do compile } 2! { dg-options "-std=f2003" } 3 4! PR fortran/29785 5! Check for F2008 rejection of rank remapping to rank-two base array. 6 7! Contributed by Daniel Kraft, d@domob.eu. 8 9PROGRAM main 10 IMPLICIT NONE 11 INTEGER, TARGET :: arr(12), basem(3, 4) 12 INTEGER, POINTER :: vec(:), mat(:, :) 13 14 ! These are ok. 15 vec => arr 16 vec(2:) => arr 17 mat(1:2, 1:6) => arr 18 19 vec(1:12) => basem ! { dg-error "Fortran 2008" } 20END PROGRAM main 21