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

Fortran: non-standard intrinsics SHORT and LONG have been removed

Browse source 
2021-10-30  Manfred Schwarb  <manfred99@gmx.ch>

gcc/fortran/ChangeLog:

	* check.c (gfc_check_intconv): Change error message.

gcc/testsuite/ChangeLog:

	* gfortran.dg/intrinsic_short-long.f90: New test.
This commit is contained in:
Harald Anlauf 2021-10-30 20:09:10 +02:00
parent 061245e832
commit 6888b7974b
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gcc/fortran/check.c
View file

@ -3240,7 +3240,7 @@ gfc_check_intconv (gfc_expr *x)
if (strcmp (gfc_current_intrinsic, "short") == 0
|| strcmp (gfc_current_intrinsic, "long") == 0)
{
gfc_error ("%qs intrinsic subprogram at %L has been deprecated. "
gfc_error ("%qs intrinsic subprogram at %L has been removed. "
"Use INT intrinsic subprogram.", gfc_current_intrinsic,
&x->where);
return false;

11
gcc/testsuite/gfortran.dg/intrinsic_short-long.f90 Normal file
View file

@ -0,0 +1,11 @@
! { dg-do compile }
!
! Checking for removal of SHORT and LONG intrinsics.
!
real,parameter :: a=3.1415927
integer :: i
i=SHORT(a) ! { dg-error "has been removed" }
i=LONG(a) ! { dg-error "has been removed" }
end