diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2024-10-18 17:58:56 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2024-10-18 17:58:56 +0200 |
| commit | 1f07dea91c37d45874cd91c2333696e784ae2d44 (patch) | |
| tree | b9e601fb21889a7d9096c2b4f83eef88fd0fae58 /gcc | |
| parent | 44a81aaf73f795e6992cbfb98ec48480e5ca94ec (diff) | |
| download | gcc-1f07dea91c37d45874cd91c2333696e784ae2d44.zip gcc-1f07dea91c37d45874cd91c2333696e784ae2d44.tar.gz gcc-1f07dea91c37d45874cd91c2333696e784ae2d44.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/error.cc | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/unsigned_37.f90 | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/error.cc b/gcc/fortran/error.cc index d184ffd..afe2e49 100644 --- a/gcc/fortran/error.cc +++ b/gcc/fortran/error.cc @@ -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 (); } diff --git a/gcc/testsuite/gfortran.dg/unsigned_37.f90 b/gcc/testsuite/gfortran.dg/unsigned_37.f90 new file mode 100644 index 0000000..b11f214 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/unsigned_37.f90 @@ -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 |