[Bug fortran/48926] gfortran.dg/coarray/image_index_1.f90 -fcoarray=single -O2 (test for excess errors)

[ubizjak at gmail dot com]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48926

--- Comment #9 from Uros Bizjak <ubizjak at gmail dot com> 2011-07-09 15:59:07 
UTC ---
[uros@localhost coarray]$ ~/gcc-build/gcc/f951 -O2 -fcoarray=single -quiet
image_index_1.f90
image_index_1.f90:84.26:

  index1 = image_index(a, [3, -4, 88] )
                          1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 3
image_index_1.f90:85.26:

  index2 = image_index(b, [-1, 0] )
                          1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 2
image_index_1.f90:90.26:

  index1 = image_index(a, [3, -3, 88] )
                          1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 3
image_index_1.f90:91.26:

  index2 = image_index(b, [0, 0] )
                          1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 2
image_index_1.f90:29.24:

index1 = image_index(a, [3, -4, 88] )
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 3
image_index_1.f90:30.24:

index2 = image_index(b, [-1, 0] )
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 2
image_index_1.f90:35.24:

index1 = image_index(a, [3, -3, 88] )
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 3
image_index_1.f90:36.24:

index2 = image_index(b, [0, 0] )
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 2
image_index_1.f90:45.24:

index1 = image_index(d, [-1, 1] )
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 2
image_index_1.f90:46.24:

index2 = image_index(d, [0, 1] )
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 2
image_index_1.f90:53.24:

index1 = image_index(e, [-1, 3] )
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 2
image_index_1.f90:54.24:

index2 = image_index(e, [-1, 4] )
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 2
image_index_1.f90:67.24:

index1 = image_index(a, [1, 0, 0] )
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 3
image_index_1.f90:68.24:

index2 = image_index(a, [3, 1, 2] )  ! = 213, yeah!
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 3
image_index_1.f90:69.24:

index3 = image_index(a, [3, 1, 0] )  ! = 13
                        1
Error: The number of array elements of the SUB argument to IMAGE_INDEX at (1)
shall be 1 (corank) not 3