Am 29.10.21 um 21:51 schrieb Harald Anlauf via Fortran:
> Hi Manfred,
>
> Am 29.10.21 um 16:12 schrieb Manfred Schwarb via Fortran:
>> Hi,
>>
>> on 2019-07-23, support for SHORT and LONG intrinsics were removed be Steve
>> Kargl by
>> adding an error message in check.c. However, the error message
>> Error: 'long' intrinsic subprogram at (1) has been deprecated
>> is misleading, as support has been disabled by this patch.
>>
>> Adjust the error message. This error message does not appear in the
>> testsuite AFAIK.
>
> the patch looks fine. A testcase checking the error message is missing,
> as well as a ChangeLog entry.
Sorry, forgot the changelog entry, I added it to the patch now.
Testcase was missing already before, but I added a trivial test to the patch
for completeness.
>
> Thanks,
> Harald
>
>> Signed-off-by Manfred Schwarb <manfre...@gmx.ch>
>>
>>
>> [Note: I do not have commit access]
>>
>
>
2021-10-30 Manfred Schwarb <manfre...@gmx.ch>
gcc/fortran/ChangeLog:
* check.c (gfc_check_intconv): Change error message.
gcc/testsuite/ChangeLog:
* gfortran.dg/intrinsic_short-long.f90: New test.
--- a/gcc/fortran/check.c
+++ b/gcc/fortran/check.c
@@ -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;
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/intrinsic_short-long.f90
@@ -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
