diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr83874.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr83874.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr83874.f90 b/gcc/testsuite/gfortran.dg/pr83874.f90 index d1bdc97b783..708293f7b5e 100644 --- a/gcc/testsuite/gfortran.dg/pr83874.f90 +++ b/gcc/testsuite/gfortran.dg/pr83874.f90 @@ -13,7 +13,7 @@ program charinit character(len=1), parameter :: names1(*) = z% name character(len=*), parameter :: names2(2) = z% name character(len=*), parameter :: names3(*) = z% name - if (.not. (names1(1) == "a" .and. names1(2) == "b")) call abort () - if (.not. (names2(1) == "a" .and. names2(2) == "b")) call abort () - if (.not. (names3(1) == "a" .and. names3(2) == "b")) call abort () + if (.not. (names1(1) == "a" .and. names1(2) == "b")) STOP 1 + if (.not. (names2(1) == "a" .and. names2(2) == "b")) STOP 2 + if (.not. (names3(1) == "a" .and. names3(2) == "b")) STOP 3 end program charinit |