Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/coarray_17.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-fcoarray=single" } ! ! Two simple diagnostics, which were initially not thought of ! ! General coarray PR: PR fortran/18918 ! subroutine one integer, allocatable :: a(:)[:,:] ! corank = 2 integer :: index,nn1,nn2,nn3,mm0 allocate(a(mm0)[nn1:nn2,nn3,*]) ! { dg-error "Too many codimensions at .1., expected 2 not 3" } end subroutine one subroutine two integer, allocatable :: a(:)[:,:,:], b(:)[:,:], c(:)[:] index1 = image_index(a, [2, 1, 1] ) !OK 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" } index3 = image_index(c, [1] ) !OK end subroutine two