2 ! { dg-options "-fcoarray=single" }
4 ! Two simple diagnostics, which were initially not thought of
6 ! General coarray PR: PR fortran/18918
10 integer, allocatable
:: a(:)[:,:] ! corank = 2
11 integer :: index
,nn1
,nn2
,nn3
,mm0
13 allocate(a(mm0
)[nn1
:nn2
,nn3
,*]) ! { dg-error "Too many codimensions at .1., expected 2 not 3" }
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