diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/namelist_utf8.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_utf8.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/namelist_utf8.f90 b/gcc/testsuite/gfortran.dg/namelist_utf8.f90 index 6a9dde314ea..1fce7dcfe5e 100644 --- a/gcc/testsuite/gfortran.dg/namelist_utf8.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_utf8.f90 @@ -18,13 +18,13 @@ str = 4_'XXXX' str2 = 4_'YYYY' read(99,nml=nml) read(99, *) str2 -if (str2 /= str) call abort +if (str2 /= str) STOP 1 rewind(99) read(99,'(A)') str3 -if (str3 /= 4_'&nml str = "' // str // 4_'" /') call abort +if (str3 /= 4_'&nml str = "' // str // 4_'" /') STOP 2 read(99,*) str3 -if (str3 /= str) call abort +if (str3 /= str) STOP 3 close(99, status='delete') end |