[Bug fortran/71952] [Coarray, F2008] Rejects valid coarray access with array partref

[damian at sourceryinstitute dot org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71952

--- Comment #4 from Damian Rouson <damian at sourceryinstitute dot org> ---
Additional demonstrations of related unsupported syntax are below.  I also
removed  "implicit none" and one unused variable because these are not needed
to generate the error message:

$ cat additional-examples.f90 
  type particles
    real x(1)
  end type
  type(particles) outbox(1)[*]
  print *,outbox(1)[1]%x(1:1) 
  print *,outbox(1)[1]%x(:)   
  print *,outbox(1)[1]%x      
end 

$ gfortran -fcoarray=lib additional-examples.f90 
additional-examples.f90:5:10:

   print *,outbox(1)[1]%x(1:1)
          1
Error: Sorry, coindexed access at (1) to a scalar component with an array
partref is not yet supported
additional-examples.f90:6:10:

   print *,outbox(1)[1]%x(:)
          1
Error: Sorry, coindexed access at (1) to a scalar component with an array
partref is not yet supported
additional-examples.f90:7:10:

   print *,outbox(1)[1]%x
          1
Error: Sorry, coindexed access at (1) to a scalar component with an array
partref is not yet supported

$ gfortran --version
GNU Fortran (MacPorts gcc7 7-20160605_0) 7.0.0 20160605 (experimental)