OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Tobias Burnus 2012-03-03 19:55:57 +01:00 committed by Tobias Burnus
parent a6de595f94
commit 6230987eeb
4 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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.

2
gcc/fortran/resolve.c
View File

@ -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;
}

5
gcc/testsuite/ChangeLog
View File

@ -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.

10
gcc/testsuite/gfortran.dg/assumed_type_3.f90
View File

@ -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