hppa64: Fix fmt_f_default_field_width_3.f90 and fmt_g_default_field_width_3.f90

[official-gcc.git] / gcc / testsuite / gfortran.dg / widechar_4.f90

! { dg-do run }
! { dg-options "-fbackslash" }

  character(kind=1,len=20) :: s1, t1
  character(kind=4,len=20) :: s4, t4

  call test (4_"ccc  ", 4_"bbb", 4_"ccc", 4_"ddd")
  call test (4_" \xACp  ", 4_" \x900000 ", 4_" \xACp  ", 4_"ddd")
  call test (4_" \xACp  ", 4_" \x900000 ", 4_" \xACp  ", 4_"ddd")

  call test2 (4_" \x900000 ", 4_" \xACp  ", 4_"ddd")

contains

  subroutine test(s4, t4, u4, v4)
    character(kind=4,len=*) :: s4, t4, u4, v4

    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)) 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 ")) 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

end