diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/character_array_constructor_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/character_array_constructor_1.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/character_array_constructor_1.f90 b/gcc/testsuite/gfortran.dg/character_array_constructor_1.f90 index ac0f7e315df..b55b6844350 100644 --- a/gcc/testsuite/gfortran.dg/character_array_constructor_1.f90 +++ b/gcc/testsuite/gfortran.dg/character_array_constructor_1.f90 @@ -35,12 +35,12 @@ contains character(*), dimension(:) :: chr character(len = len(chr)) :: tmp if (size(chr,1) == 2) then - if (any (chr .ne. (/"Label 1", "Label 2"/))) call abort () + if (any (chr .ne. (/"Label 1", "Label 2"/))) STOP 1 elseif (size(chr,1) == 4) then - if (any (chr .ne. (/"Label 3", "Label 4","Label 1", "Label 2"/))) call abort () + if (any (chr .ne. (/"Label 3", "Label 4","Label 1", "Label 2"/))) STOP 2 elseif (size(chr,1) == 5) then if (any (chr .ne. (/"Label 3", "Label 4","Label 1", "Label 2", "Label 5"/))) & - call abort () + STOP 3 end if end subroutine read_library_data_ |