diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2024-08-02 18:33:40 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2024-08-02 18:33:40 +0200 |
| commit | 4ee8acd349ebc55526421b7fa73b0b7a30ee4ebe (patch) | |
| tree | e3881fff3b26e65c037e4d512779b202be66d2db /gcc | |
| parent | 74cc1893acada349114d17f65909c0f0c293061c (diff) | |
| download | gcc-4ee8acd349ebc55526421b7fa73b0b7a30ee4ebe.zip gcc-4ee8acd349ebc55526421b7fa73b0b7a30ee4ebe.tar.gz gcc-4ee8acd349ebc55526421b7fa73b0b7a30ee4ebe.tar.bz2 | |
Add decimal formatted I/O for unsigneds.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/unsigned_4.f90 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/unsigned_4.f90 b/gcc/testsuite/gfortran.dg/unsigned_4.f90 new file mode 100644 index 0000000..495523d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/unsigned_4.f90 @@ -0,0 +1,15 @@ +! { dg-do run } +! { dg-options "-funsigned" } +! Test some basic formatted I/O. + +program main + unsigned :: u + open (10,status="scratch") + write (10,'(I4)') 1u + write (10,'(I4)') -1 + rewind 10 + read (10,'(I4)') u + if (u /= 1u) stop 1 + read (10,'(I4)') u + if (u /= 4294967295u) stop 2 +end program main |