diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/widechar_4.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/widechar_4.f90 | 228 |
1 files changed, 114 insertions, 114 deletions
diff --git a/gcc/testsuite/gfortran.dg/widechar_4.f90 b/gcc/testsuite/gfortran.dg/widechar_4.f90 index 1166f8bfb77..1a0f45d91cc 100644 --- a/gcc/testsuite/gfortran.dg/widechar_4.f90 +++ b/gcc/testsuite/gfortran.dg/widechar_4.f90 @@ -15,132 +15,132 @@ contains subroutine test(s4, t4, u4, v4) character(kind=4,len=*) :: s4, t4, u4, v4 - if (.not. (s4 >= t4)) call abort - if (.not. (s4 > t4)) call abort - if (.not. (s4 .ge. t4)) call abort - if (.not. (s4 .gt. t4)) call abort - if ( (s4 == t4)) call abort - if (.not. (s4 /= t4)) call abort - if ( (s4 .eq. t4)) call abort - if (.not. (s4 .ne. t4)) call abort - if ( (s4 <= t4)) call abort - if ( (s4 < t4)) call abort - if ( (s4 .le. t4)) call abort - if ( (s4 .lt. t4)) call abort - - if (.not. (s4 >= u4)) call abort - if ( (s4 > u4)) call abort - if (.not. (s4 .ge. u4)) call abort - if ( (s4 .gt. u4)) call abort - if (.not. (s4 == u4)) call abort - if ( (s4 /= u4)) call abort - if (.not. (s4 .eq. u4)) call abort - if ( (s4 .ne. u4)) call abort - if (.not. (s4 <= u4)) call abort - if ( (s4 < u4)) call abort - if (.not. (s4 .le. u4)) call abort - if ( (s4 .lt. u4)) call abort - - if ( (s4 >= v4)) call abort - if ( (s4 > v4)) call abort - if ( (s4 .ge. v4)) call abort - if ( (s4 .gt. v4)) call abort - if ( (s4 == v4)) call abort - if (.not. (s4 /= v4)) call abort - if ( (s4 .eq. v4)) call abort - if (.not. (s4 .ne. v4)) call abort - if (.not. (s4 <= v4)) call abort - if (.not. (s4 < v4)) call abort - if (.not. (s4 .le. v4)) call abort - if (.not. (s4 .lt. v4)) call abort + if (.not. (s4 >= t4)) STOP 1 + if (.not. (s4 > t4)) STOP 2 + if (.not. (s4 .ge. t4)) STOP 3 + if (.not. (s4 .gt. t4)) STOP 4 + if ( (s4 == t4)) STOP 5 + if (.not. (s4 /= t4)) STOP 6 + if ( (s4 .eq. t4)) STOP 7 + if (.not. (s4 .ne. t4)) STOP 8 + if ( (s4 <= t4)) STOP 9 + if ( (s4 < t4)) STOP 10 + if ( (s4 .le. t4)) STOP 11 + if ( (s4 .lt. t4)) STOP 12 + + if (.not. (s4 >= u4)) STOP 13 + if ( (s4 > u4)) STOP 14 + if (.not. (s4 .ge. u4)) STOP 15 + if ( (s4 .gt. u4)) STOP 16 + if (.not. (s4 == u4)) STOP 17 + if ( (s4 /= u4)) STOP 18 + if (.not. (s4 .eq. u4)) STOP 19 + if ( (s4 .ne. u4)) STOP 20 + if (.not. (s4 <= u4)) STOP 21 + if ( (s4 < u4)) STOP 22 + if (.not. (s4 .le. u4)) STOP 23 + if ( (s4 .lt. u4)) STOP 24 + + if ( (s4 >= v4)) STOP 25 + if ( (s4 > v4)) STOP 26 + if ( (s4 .ge. v4)) STOP 27 + if ( (s4 .gt. v4)) STOP 28 + if ( (s4 == v4)) STOP 29 + if (.not. (s4 /= v4)) STOP 30 + if ( (s4 .eq. v4)) STOP 31 + if (.not. (s4 .ne. v4)) STOP 32 + if (.not. (s4 <= v4)) STOP 33 + if (.not. (s4 < v4)) STOP 34 + if (.not. (s4 .le. v4)) STOP 35 + if (.not. (s4 .lt. v4)) STOP 36 end subroutine test subroutine test2(t4, u4, v4) character(kind=4,len=*) :: t4, u4, v4 - if (.not. (4_" \xACp " >= t4)) call abort - if (.not. (4_" \xACp " > t4)) call abort - if (.not. (4_" \xACp " .ge. t4)) call abort - if (.not. (4_" \xACp " .gt. t4)) call abort - if ( (4_" \xACp " == t4)) call abort - if (.not. (4_" \xACp " /= t4)) call abort - if ( (4_" \xACp " .eq. t4)) call abort - if (.not. (4_" \xACp " .ne. t4)) call abort - if ( (4_" \xACp " <= t4)) call abort - if ( (4_" \xACp " < t4)) call abort - if ( (4_" \xACp " .le. t4)) call abort - if ( (4_" \xACp " .lt. t4)) call abort - - if (.not. (4_" \xACp " >= u4)) call abort - if ( (4_" \xACp " > u4)) call abort - if (.not. (4_" \xACp " .ge. u4)) call abort - if ( (4_" \xACp " .gt. u4)) call abort - if (.not. (4_" \xACp " == u4)) call abort - if ( (4_" \xACp " /= u4)) call abort - if (.not. (4_" \xACp " .eq. u4)) call abort - if ( (4_" \xACp " .ne. u4)) call abort - if (.not. (4_" \xACp " <= u4)) call abort - if ( (4_" \xACp " < u4)) call abort - if (.not. (4_" \xACp " .le. u4)) call abort - if ( (4_" \xACp " .lt. u4)) call abort - - if ( (4_" \xACp " >= v4)) call abort - if ( (4_" \xACp " > v4)) call abort - if ( (4_" \xACp " .ge. v4)) call abort - if ( (4_" \xACp " .gt. v4)) call abort - if ( (4_" \xACp " == v4)) call abort - if (.not. (4_" \xACp " /= v4)) call abort - if ( (4_" \xACp " .eq. v4)) call abort - if (.not. (4_" \xACp " .ne. v4)) call abort - if (.not. (4_" \xACp " <= v4)) call abort - if (.not. (4_" \xACp " < v4)) call abort - if (.not. (4_" \xACp " .le. v4)) call abort - if (.not. (4_" \xACp " .lt. v4)) call abort + if (.not. (4_" \xACp " >= t4)) STOP 37 + if (.not. (4_" \xACp " > t4)) STOP 38 + if (.not. (4_" \xACp " .ge. t4)) STOP 39 + if (.not. (4_" \xACp " .gt. t4)) STOP 40 + if ( (4_" \xACp " == t4)) STOP 41 + if (.not. (4_" \xACp " /= t4)) STOP 42 + if ( (4_" \xACp " .eq. t4)) STOP 43 + if (.not. (4_" \xACp " .ne. t4)) STOP 44 + if ( (4_" \xACp " <= t4)) STOP 45 + if ( (4_" \xACp " < t4)) STOP 46 + if ( (4_" \xACp " .le. t4)) STOP 47 + if ( (4_" \xACp " .lt. t4)) STOP 48 + + if (.not. (4_" \xACp " >= u4)) STOP 49 + if ( (4_" \xACp " > u4)) STOP 50 + if (.not. (4_" \xACp " .ge. u4)) STOP 51 + if ( (4_" \xACp " .gt. u4)) STOP 52 + if (.not. (4_" \xACp " == u4)) STOP 53 + if ( (4_" \xACp " /= u4)) STOP 54 + if (.not. (4_" \xACp " .eq. u4)) STOP 55 + if ( (4_" \xACp " .ne. u4)) STOP 56 + if (.not. (4_" \xACp " <= u4)) STOP 57 + if ( (4_" \xACp " < u4)) STOP 58 + if (.not. (4_" \xACp " .le. u4)) STOP 59 + if ( (4_" \xACp " .lt. u4)) STOP 60 + + if ( (4_" \xACp " >= v4)) STOP 61 + if ( (4_" \xACp " > v4)) STOP 62 + if ( (4_" \xACp " .ge. v4)) STOP 63 + if ( (4_" \xACp " .gt. v4)) STOP 64 + if ( (4_" \xACp " == v4)) STOP 65 + if (.not. (4_" \xACp " /= v4)) STOP 66 + if ( (4_" \xACp " .eq. v4)) STOP 67 + if (.not. (4_" \xACp " .ne. v4)) STOP 68 + if (.not. (4_" \xACp " <= v4)) STOP 69 + if (.not. (4_" \xACp " < v4)) STOP 70 + if (.not. (4_" \xACp " .le. v4)) STOP 71 + if (.not. (4_" \xACp " .lt. v4)) STOP 72 end subroutine test2 subroutine test3(t4, u4, v4) character(kind=4,len=*) :: t4, u4, v4 - if (.not. (4_" \xACp " >= 4_" \x900000 ")) call abort - if (.not. (4_" \xACp " > 4_" \x900000 ")) call abort - if (.not. (4_" \xACp " .ge. 4_" \x900000 ")) call abort - if (.not. (4_" \xACp " .gt. 4_" \x900000 ")) call abort - if ( (4_" \xACp " == 4_" \x900000 ")) call abort - if (.not. (4_" \xACp " /= 4_" \x900000 ")) call abort - if ( (4_" \xACp " .eq. 4_" \x900000 ")) call abort - if (.not. (4_" \xACp " .ne. 4_" \x900000 ")) call abort - if ( (4_" \xACp " <= 4_" \x900000 ")) call abort - if ( (4_" \xACp " < 4_" \x900000 ")) call abort - if ( (4_" \xACp " .le. 4_" \x900000 ")) call abort - if ( (4_" \xACp " .lt. 4_" \x900000 ")) call abort - - if (.not. (4_" \xACp " >= 4_" \xACp ")) call abort - if ( (4_" \xACp " > 4_" \xACp ")) call abort - if (.not. (4_" \xACp " .ge. 4_" \xACp ")) call abort - if ( (4_" \xACp " .gt. 4_" \xACp ")) call abort - if (.not. (4_" \xACp " == 4_" \xACp ")) call abort - if ( (4_" \xACp " /= 4_" \xACp ")) call abort - if (.not. (4_" \xACp " .eq. 4_" \xACp ")) call abort - if ( (4_" \xACp " .ne. 4_" \xACp ")) call abort - if (.not. (4_" \xACp " <= 4_" \xACp ")) call abort - if ( (4_" \xACp " < 4_" \xACp ")) call abort - if (.not. (4_" \xACp " .le. 4_" \xACp ")) call abort - if ( (4_" \xACp " .lt. 4_" \xACp ")) call abort - - if ( (4_" \xACp " >= 4_"ddd")) call abort - if ( (4_" \xACp " > 4_"ddd")) call abort - if ( (4_" \xACp " .ge. 4_"ddd")) call abort - if ( (4_" \xACp " .gt. 4_"ddd")) call abort - if ( (4_" \xACp " == 4_"ddd")) call abort - if (.not. (4_" \xACp " /= 4_"ddd")) call abort - if ( (4_" \xACp " .eq. 4_"ddd")) call abort - if (.not. (4_" \xACp " .ne. 4_"ddd")) call abort - if (.not. (4_" \xACp " <= 4_"ddd")) call abort - if (.not. (4_" \xACp " < 4_"ddd")) call abort - if (.not. (4_" \xACp " .le. 4_"ddd")) call abort - if (.not. (4_" \xACp " .lt. 4_"ddd")) call abort + if (.not. (4_" \xACp " >= 4_" \x900000 ")) STOP 73 + if (.not. (4_" \xACp " > 4_" \x900000 ")) STOP 74 + if (.not. (4_" \xACp " .ge. 4_" \x900000 ")) STOP 75 + if (.not. (4_" \xACp " .gt. 4_" \x900000 ")) STOP 76 + if ( (4_" \xACp " == 4_" \x900000 ")) STOP 77 + if (.not. (4_" \xACp " /= 4_" \x900000 ")) STOP 78 + if ( (4_" \xACp " .eq. 4_" \x900000 ")) STOP 79 + if (.not. (4_" \xACp " .ne. 4_" \x900000 ")) STOP 80 + if ( (4_" \xACp " <= 4_" \x900000 ")) STOP 81 + if ( (4_" \xACp " < 4_" \x900000 ")) STOP 82 + if ( (4_" \xACp " .le. 4_" \x900000 ")) STOP 83 + if ( (4_" \xACp " .lt. 4_" \x900000 ")) STOP 84 + + if (.not. (4_" \xACp " >= 4_" \xACp ")) STOP 85 + if ( (4_" \xACp " > 4_" \xACp ")) STOP 86 + if (.not. (4_" \xACp " .ge. 4_" \xACp ")) STOP 87 + if ( (4_" \xACp " .gt. 4_" \xACp ")) STOP 88 + if (.not. (4_" \xACp " == 4_" \xACp ")) STOP 89 + if ( (4_" \xACp " /= 4_" \xACp ")) STOP 90 + if (.not. (4_" \xACp " .eq. 4_" \xACp ")) STOP 91 + if ( (4_" \xACp " .ne. 4_" \xACp ")) STOP 92 + if (.not. (4_" \xACp " <= 4_" \xACp ")) STOP 93 + if ( (4_" \xACp " < 4_" \xACp ")) STOP 94 + if (.not. (4_" \xACp " .le. 4_" \xACp ")) STOP 95 + if ( (4_" \xACp " .lt. 4_" \xACp ")) STOP 96 + + if ( (4_" \xACp " >= 4_"ddd")) STOP 97 + if ( (4_" \xACp " > 4_"ddd")) STOP 98 + if ( (4_" \xACp " .ge. 4_"ddd")) STOP 99 + if ( (4_" \xACp " .gt. 4_"ddd")) STOP 100 + if ( (4_" \xACp " == 4_"ddd")) STOP 101 + if (.not. (4_" \xACp " /= 4_"ddd")) STOP 102 + if ( (4_" \xACp " .eq. 4_"ddd")) STOP 103 + if (.not. (4_" \xACp " .ne. 4_"ddd")) STOP 104 + if (.not. (4_" \xACp " <= 4_"ddd")) STOP 105 + if (.not. (4_" \xACp " < 4_"ddd")) STOP 106 + if (.not. (4_" \xACp " .le. 4_"ddd")) STOP 107 + if (.not. (4_" \xACp " .lt. 4_"ddd")) STOP 108 end subroutine test3 |