Handle GFC_STD_UNSIGNED like a standard in error messages.
gcc/fortran/ChangeLog: * error.cc (notify_std_msg): Handle GFC_STD_UNSIGNED. gcc/testsuite/ChangeLog: * gfortran.dg/unsigned_37.f90: New test.
This commit is contained in:
parent
44a81aaf73
commit
1f07dea91c
2 changed files with 6 additions and 0 deletions
|
@ -362,6 +362,8 @@ notify_std_msg(int std)
|
|||
return _("Obsolescent feature:");
|
||||
else if (std & GFC_STD_F95_DEL)
|
||||
return _("Deleted feature:");
|
||||
else if (std & GFC_STD_UNSIGNED)
|
||||
return _("Unsigned:");
|
||||
else
|
||||
gcc_unreachable ();
|
||||
}
|
||||
|
|
4
gcc/testsuite/gfortran.dg/unsigned_37.f90
Normal file
4
gcc/testsuite/gfortran.dg/unsigned_37.f90
Normal file
|
@ -0,0 +1,4 @@
|
|||
! { dg-do compile }
|
||||
program main
|
||||
use iso_fortran_env, only : uint32 ! { dg-error "not in the selected standard" }
|
||||
end program main
|
Loading…
Add table
Reference in a new issue