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

re PR fortran/53542 (Diagnostic of USE-associated variables shows original instead of renamed symbol name)

Browse Source 
2017-08-01  Dominique d'Humieres  <dominiq@lps.ens.fr>

	PR fortran/53542
	* expr.c (gfc_check_init_expr): Use the renamed name.

	PR testsuite/53542
	* gfortran.dg/use_30.f90: New test.

From-SVN: r250762
This commit is contained in:
Dominique d'Humieres 2017-08-01 11:02:58 +02:00 committed by Dominique d'Humieres
parent da98e3b126
commit f9c5fe06f9
4 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2017-08-01 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/53542
* expr.c (gfc_check_init_expr): Use the renamed name.
2017-07-31 Jakub Jelinek <jakub@redhat.com>
* check.c (gfc_check_num_images): Fix a pasto.

2
gcc/fortran/expr.c
View File

@ -2591,7 +2591,7 @@ gfc_check_init_expr (gfc_expr *e)
else
gfc_error ("Parameter %qs at %L has not been declared or is "
"a variable, which does not reduce to a constant "
"expression", e->symtree->n.sym->name, &e->where);
"expression", e->symtree->name, &e->where);
break;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2017-08-01 Dominique d'Humieres <dominiq@lps.ens.fr>
PR testsuite/53542
* gfortran.dg/use_30.f90: New test.
2017-08-01 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/81588

17
gcc/testsuite/gfortran.dg/use_30.f90 Normal file
View File

@ -0,0 +1,17 @@
! { dg-do compile }
!
! PR53542 USE-associated variables shows original instead of renamed symbol name
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
!
module select_precision
integer :: dp = kind(1.0)
end module select_precision
module ode_types
use select_precision, only: wp => dp
contains
subroutine ode_derivative(x)
real(wp) :: x ! { dg-error "Parameter .wp. at .1. has not been declared" }
end subroutine ode_derivative
end module ode_types
end