[Fortran] Add parsing support for assumed-rank array

Submitted by Mikael Morin on July 19, 2012, 5:36 p.m.

Details

Message ID 500845B2.8060504@sfr.fr
State New
Headers show

Commit Message

Mikael Morin July 19, 2012, 5:36 p.m.
On 19/07/2012 17:55, Mikael Morin wrote:
> I'm regression testing them, and if they work and are fine to you, let's
> go with these patches.
> 
They work with the following testsuite adjustment.

Mikael

Patch hide | download patch | download mbox

diff --git a/gcc/testsuite/gfortran.dg/assumed_type_3.f90 b/gcc/testsuite/gfortran.dg/assumed_type_3.f90
index d88da34..8d2be25 100644
--- a/gcc/testsuite/gfortran.dg/assumed_type_3.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_type_3.f90
@@ -31,7 +31,7 @@  end subroutine six
 
 subroutine seven(y)
  type(*) :: y(:)
- call a7(y(3:5)) ! { dg-error "Assumed-type variable y with designator" }
+ call a7(y(3:5)) ! { dg-error "Assumed-type variable y at .1. shall not have a subobject reference" }
 contains
  subroutine a7(x)
    type(*) :: x(*)
@@ -115,5 +115,5 @@  end subroutine thirteen
 
 subroutine fourteen(x)
   type(*) :: x
-  x = x ! { dg-error "Invalid expression with assumed-type variable" }
+  x = x ! { dg-error "Assumed-type variable x at .1. may only be used as actual argument" }
 end subroutine fourteen