gcc/testsuite/gfortran.dg/coarray_17.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=single" }
   3 !
   4 ! Two simple diagnostics, which were initially not thought of
   5 !
   6 ! General coarray PR: PR fortran/18918
   7 !
   8
   9 subroutine one
  10     integer, allocatable :: a(:)[:,:]  ! corank = 2
  11     integer :: index,nn1,nn2,nn3,mm0
  12
  13     allocate(a(mm0)[nn1:nn2,nn3,*]) ! { dg-error "Too many codimensions at .1., expected 2 not 3" }
  14 end subroutine one
  15
  16 subroutine two
  17     integer, allocatable :: a(:)[:,:,:], b(:)[:,:], c(:)[:]
  18     index1 = image_index(a, [2, 1, 1] )  !OK
  19     index2 = image_index(b, [2, 1, 1] )  ! { dg-error "array elements of the SUB argument to IMAGE_INDEX at .1. shall be 2 .corank. not 3" }
  20     index3 = image_index(c, [1] )        !OK
  21 end subroutine two