procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix error message.

Browse source 
2020-02-23  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/93890
	* interface.c: Replace "can not" by "cannot" and remove trailing
	space.

2020-02-23  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/93890
	* gfortran.dg/argument_checking_24.f90: Correct test case.
This commit is contained in:
Thomas König 2020-02-23 17:04:06 +01:00
parent 61c8d9e4e5
commit 7260547dbf
4 changed files with 17 additions and 6 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 @@
2020-02-23 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/93890
* interface.c: Replace "can not" by "cannot" and remove trailing
space.
2020-02-20 Tobias Burnus <tobias@codesourcery.com>
PR fortran/93825

4
gcc/fortran/interface.c
View file

@ -2660,8 +2660,8 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
{
if (formal->attr.artificial)
gfc_error ("Element of assumed-shape or pointer array "
"as actual argument at %L can not correspond to "
"actual argument at %L ",
"as actual argument at %L cannot correspond to "
"actual argument at %L",
&actual->where, &formal->declared_at);
else
gfc_error ("Element of assumed-shape or pointer "

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2020-02-23 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/93890
* gfortran.dg/argument_checking_24.f90: Correct test case.
2020-02-21 Martin Sebor <msebor@redhat.com>
PR gcov-profile/93753

8
gcc/testsuite/gfortran.dg/argument_checking_24.f90
View file

@ -33,14 +33,14 @@ contains
call invalid_4 (b) ! { dg-error "Rank mismatch" }w
call invalid_5 (b) ! { dg-error "Rank mismatch" }
call invalid_5 (vv(1)%x) ! { dg-error "Rank mismatch" }
call invalid_6 (x) ! { dg-error "can not correspond to actual argument" }
call invalid_6 (pointer_v%x(1)) ! { dg-error "can not correspond to actual argument" }
call invalid_6 (x) ! { dg-error "cannot correspond to actual argument" }
call invalid_6 (pointer_v%x(1)) ! { dg-error "cannot correspond to actual argument" }
call invalid_7 (pointer_v%x(1)) ! { dg-error "Rank mismatch" }
call invalid_7 (x) ! { dg-error "Rank mismatch" }
call invalid_8 (p(1)) ! { dg-error "Rank mismatch" }
call invalid_8 (x) ! { dg-error "Rank mismatch" }
call invalid_9 (x) ! { dg-error "can not correspond to actual argument" }
call invalid_9 (p(1)) ! { dg-error "can not correspond to actual argument" }
call invalid_9 (x) ! { dg-error "cannot correspond to actual argument" }
call invalid_9 (p(1)) ! { dg-error "cannot correspond to actual argument" }
end subroutine foo
subroutine bar(a, alloc)