re PR fortran/48820 (TR 29113: Implement parts needed for MPI 3)
2012-03-03 Tobias Burnus <burnus@net-b.de> PR fortran/48820 * resolve.c (resolve_actual_arglist): Properly reset assumed_type_expr_allowed. 2012-03-03 Tobias Burnus <burnus@net-b.de> PR fortran/48820 * gfortran.dg/assumed_type_3.f90: Undo previous commit. From-SVN: r184863
This commit is contained in:
parent
a6de595f94
commit
6230987eeb
|
@ -1,3 +1,9 @@
|
|||
2012-03-03 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
PR fortran/48820
|
||||
* resolve.c (resolve_actual_arglist): Properly reset
|
||||
assumed_type_expr_allowed.
|
||||
|
||||
2012-03-03 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
* lang.opt (Wc-binding-type): New flag.
|
||||
|
|
|
@ -1833,7 +1833,7 @@ resolve_actual_arglist (gfc_actual_arglist *arg, procedure_type ptype,
|
|||
return FAILURE;
|
||||
}
|
||||
}
|
||||
assumed_type_expr_allowed = true;
|
||||
assumed_type_expr_allowed = false;
|
||||
|
||||
return SUCCESS;
|
||||
}
|
||||
|
|
|
@ -1,3 +1,8 @@
|
|||
2012-03-03 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
PR fortran/48820
|
||||
* gfortran.dg/assumed_type_3.f90: Undo previous commit.
|
||||
|
||||
2012-03-03 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
* gfortran.dg/bind_c_dts_4.f03: Add dg-options -Wc-binding-type.
|
||||
|
|
|
@ -5,11 +5,6 @@
|
|||
!
|
||||
! Test TYPE(*)
|
||||
|
||||
subroutine fourteen(x)
|
||||
type(*) :: x
|
||||
x = x ! { dg-error "Invalid expression with assumed-type variable" }
|
||||
end subroutine fourteen
|
||||
|
||||
subroutine one(a) ! { dg-error "may not have the ALLOCATABLE, CODIMENSION, POINTER or VALUE attribute" }
|
||||
type(*), value :: a
|
||||
end subroutine one
|
||||
|
@ -118,4 +113,7 @@ subroutine thirteen(x, y)
|
|||
print *, ubound(y, dim=x) ! { dg-error "must be INTEGER" }
|
||||
end subroutine thirteen
|
||||
|
||||
|
||||
subroutine fourteen(x)
|
||||
type(*) :: x
|
||||
x = x ! { dg-error "Invalid expression with assumed-type variable" }
|
||||
end subroutine fourteen
|
||||
|
|
Loading…
Reference in New Issue