gcc/testsuite/gfortran.dg/coarray/coindexed_1.f90

! { dg-do run }
!
!
program test
  implicit none
  call char_test()
contains
subroutine char_test()
  character(len=3, kind=1), save :: str1a[*], str1b(5)[*]
  character(len=7, kind=1), save :: str2a[*], str2b(5)[*]
  character(len=3, kind=4), save :: ustr1a[*], ustr1b(5)[*]
  character(len=7, kind=4), save :: ustr2a[*], ustr2b(5)[*]

  ! ---------- Assign to coindexed variable -------------

  ! - - - - - scalar = scalar

  ! SCALAR - kind 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  str2a = 1_"XXXXXXX"
  if (this_image() == num_images()) then
    str2a[1] = str1a
  end if
  sync all
  if (this_image() == 1) then
    if (str2a /= 1_"abc    ") STOP 1
  else
    if (str2a /= 1_"XXXXXXX") STOP 2
  end if

  ! SCALAR - kind 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  ustr2a = 4_"XXXXXXX"
  if (this_image() == num_images()) then
    ustr2a[1] = ustr1a
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2a /= 4_"abc    ") STOP 3
  else
    if (ustr2a /= 4_"XXXXXXX") STOP 4
  end if

  ! SCALAR - kind 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcde"
  str1a = 1_"XXX"
  if (this_image() == num_images()) then
    str1a[1] = str2a
  end if
  sync all
  if (this_image() == 1) then
    if (str1a /= 1_"abc") STOP 5
  else
    if (str1a /= 1_"XXX") STOP 6
  end if

  ! SCALAR - kind 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcde"
  ustr1a = 4_"XXX"
  if (this_image() == num_images()) then
    ustr1a[1] = ustr2a
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1a /= 4_"abc") STOP 7
  else
    if (ustr1a /= 4_"XXX") STOP 8
  end if

  ! - - - - - array = array

  ! contiguous ARRAY - kind 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1b(1) = 1_"abc"
  str1b(2) = 1_"def"
  str1b(3) = 1_"gjh"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b(:)[1] = str1b
  end if
  sync all
  if (this_image() == 1) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"def    " &
        .or. str2b(3) /= 1_"gjh    ") STOP 9
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 10
  end if

  ! contiguous ARRAY - kind 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1b(1) = 4_"abc"
  ustr1b(2) = 4_"def"
  ustr1b(3) = 4_"gjh"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b(:)[1] = ustr1b
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"def    " &
        .or. ustr2b(3) /= 4_"gjh    ") STOP 11
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 12
  end if

  ! contiguous ARRAY - kind 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2b(1) = 1_"abcdefg"
  str2b(2) = 1_"hijklmn"
  str2b(3) = 1_"opqrstu"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b(:)[1] = str2b
  end if
  sync all
  if (this_image() == 1) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" &
        .or. str1b(3) /= 1_"opq") STOP 13
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 14
  end if

  ! contiguous ARRAY - kind 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2b(1) = 4_"abcdefg"
  ustr2b(2) = 4_"hijklmn"
  ustr2b(3) = 4_"opqrstu"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b(:)[1] = ustr2b
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" &
        .or. ustr1b(3) /= 4_"opq") STOP 15
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 16
  end if

  ! - - - - - array = scalar

  ! contiguous ARRAY - kind 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b(:)[1] = str1a
  end if
  sync all
  if (this_image() == 1) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"abc    " &
        .or. str2b(3) /= 1_"abc    ") STOP 17
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 18
  end if

  ! contiguous ARRAY - kind 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b(:)[1] = ustr1a
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"abc    " &
        .or. ustr2b(3) /= 4_"abc    ") STOP 19
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 20
  end if

  ! contiguous ARRAY - kind 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcdefg"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b(:)[1] = str2a
  end if
  sync all
  if (this_image() == 1) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" &
        .or. str1b(3) /= 1_"abc") STOP 21
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 22
  end if

  ! contiguous ARRAY - kind 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcdefg"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b(:)[1] = ustr2a
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" &
        .or. ustr1b(3) /= 4_"abc") STOP 23
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 24
  end if

  ! ---------- Take from a coindexed variable -------------

  ! - - - - - scalar = scalar

  ! SCALAR - kind 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  str2a = 1_"XXXXXXX"
  if (this_image() == num_images()) then
    str2a = str1a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str2a /= 1_"abc    ") STOP 25
  else
    if (str2a /= 1_"XXXXXXX") STOP 26
  end if

  ! SCALAR - kind 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  ustr2a = 4_"XXXXXXX"
  if (this_image() == num_images()) then
    ustr2a = ustr1a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr2a /= 4_"abc    ") STOP 27
  else
    if (ustr2a /= 4_"XXXXXXX") STOP 28
  end if

  ! SCALAR - kind 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcde"
  str1a = 1_"XXX"
  if (this_image() == num_images()) then
    str1a = str2a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str1a /= 1_"abc") STOP 29
  else
    if (str1a /= 1_"XXX") STOP 30
  end if

  ! SCALAR - kind 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcde"
  ustr1a = 4_"XXX"
  if (this_image() == num_images()) then
    ustr1a = ustr2a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr1a /= 4_"abc") STOP 31
  else
    if (ustr1a /= 4_"XXX") STOP 32
  end if

  ! - - - - - array = array

  ! contiguous ARRAY - kind 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1b(1) = 1_"abc"
  str1b(2) = 1_"def"
  str1b(3) = 1_"gjh"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b = str1b(:)[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"def    " &
        .or. str2b(3) /= 1_"gjh    ") STOP 33
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 34
  end if

  ! contiguous ARRAY - kind 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1b(1) = 4_"abc"
  ustr1b(2) = 4_"def"
  ustr1b(3) = 4_"gjh"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b = ustr1b(:)[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"def    " &
        .or. ustr2b(3) /= 4_"gjh    ") STOP 35
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 36
  end if

  ! contiguous ARRAY - kind 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2b(1) = 1_"abcdefg"
  str2b(2) = 1_"hijklmn"
  str2b(3) = 1_"opqrstu"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b = str2b(:)[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" &
        .or. str1b(3) /= 1_"opq") STOP 37
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 38
  end if

  ! contiguous ARRAY - kind 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2b(1) = 4_"abcdefg"
  ustr2b(2) = 4_"hijklmn"
  ustr2b(3) = 4_"opqrstu"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b = ustr2b(:)[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" &
        .or. ustr1b(3) /= 4_"opq") STOP 39
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 40
  end if

  ! - - - - - array = scalar

  ! contiguous ARRAY - kind 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b = str1a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"abc    " &
        .or. str2b(3) /= 1_"abc    ") STOP 41
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 42
  end if

  ! contiguous ARRAY - kind 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b = ustr1a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"abc    " &
        .or. ustr2b(3) /= 4_"abc    ") STOP 43
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 44
  end if

  ! contiguous ARRAY - kind 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcdefg"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b = str2a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" &
        .or. str1b(3) /= 1_"abc") STOP 45
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 46
  end if

  ! contiguous ARRAY - kind 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcdefg"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b = ustr2a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" &
        .or. ustr1b(3) /= 4_"abc") STOP 47
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 48
  end if


  ! ---------- coindexed to coindexed variable -------------

  ! - - - - - scalar = scalar

  ! SCALAR - kind 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  str2a = 1_"XXXXXXX"
  if (this_image() == num_images()) then
    str2a[1] = str1a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str2a /= 1_"abc    ") STOP 49
  else
    if (str2a /= 1_"XXXXXXX") STOP 50
  end if

  ! SCALAR - kind 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  ustr2a = 4_"XXXXXXX"
  if (this_image() == num_images()) then
    ustr2a[1] = ustr1a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2a /= 4_"abc    ") STOP 51
  else
    if (ustr2a /= 4_"XXXXXXX") STOP 52
  end if

  ! SCALAR - kind 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcde"
  str1a = 1_"XXX"
  if (this_image() == num_images()) then
    str1a[1] = str2a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str1a /= 1_"abc") STOP 53
  else
    if (str1a /= 1_"XXX") STOP 54
  end if

  ! SCALAR - kind 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcde"
  ustr1a = 4_"XXX"
  if (this_image() == num_images()) then
    ustr1a[1] = ustr2a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1a /= 4_"abc") STOP 55
  else
    if (ustr1a /= 4_"XXX") STOP 56
  end if

  ! - - - - - array = array

  ! contiguous ARRAY - kind 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1b(1) = 1_"abc"
  str1b(2) = 1_"def"
  str1b(3) = 1_"gjh"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b(:)[1] = str1b(:)[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"def    " &
        .or. str2b(3) /= 1_"gjh    ") STOP 57
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 58
  end if

  ! contiguous ARRAY - kind 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1b(1) = 4_"abc"
  ustr1b(2) = 4_"def"
  ustr1b(3) = 4_"gjh"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b(:)[1] = ustr1b(:)[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"def    " &
        .or. ustr2b(3) /= 4_"gjh    ") STOP 59
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 60
  end if

  ! contiguous ARRAY - kind 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2b(1) = 1_"abcdefg"
  str2b(2) = 1_"hijklmn"
  str2b(3) = 1_"opqrstu"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b(:)[1] = str2b(:)[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" &
        .or. str1b(3) /= 1_"opq") STOP 61
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 62
  end if

  ! contiguous ARRAY - kind 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2b(1) = 4_"abcdefg"
  ustr2b(2) = 4_"hijklmn"
  ustr2b(3) = 4_"opqrstu"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b(:)[1] = ustr2b(:)[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" &
        .or. ustr1b(3) /= 4_"opq") STOP 63
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 64
  end if

  ! - - - - - array = scalar

  ! contiguous ARRAY - kind 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b(:)[1] = str1a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"abc    " &
        .or. str2b(3) /= 1_"abc    ") STOP 65
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 66
  end if

  ! contiguous ARRAY - kind 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b(:)[1] = ustr1a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"abc    " &
        .or. ustr2b(3) /= 4_"abc    ") STOP 67
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 68
  end if

  ! contiguous ARRAY - kind 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcdefg"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b(:)[1] = str2a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" &
        .or. str1b(3) /= 1_"abc") STOP 69
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 70
  end if

  ! contiguous ARRAY - kind 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcdefg"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b(:)[1] = ustr2a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" &
        .or. ustr1b(3) /= 4_"abc") STOP 71
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 72
  end if

  ! ============== char1 <-> char4 =====================

  ! ---------- Assign to coindexed variable -------------

  ! - - - - - scalar = scalar

  ! SCALAR - kind 1 <- 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  str1a = 1_"XXXXXXX"
  if (this_image() == num_images()) then
    str2a[1] = ustr1a
  end if
  sync all
  if (this_image() == 1) then
    if (str2a /= 1_"abc    ") STOP 73
  else
    if (str2a /= 1_"XXXXXXX") STOP 74
  end if

  ! SCALAR - kind 4 <- 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 4_"abc"
  ustr2a = 1_"XXXXXXX"
  if (this_image() == num_images()) then
    ustr2a[1] = str1a
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2a /= 4_"abc    ") STOP 75
  else
    if (ustr2a /= 4_"XXXXXXX") STOP 76
  end if

  ! SCALAR - kind 1 <- 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcde"
  str1a = 1_"XXX"
  if (this_image() == num_images()) then
    str1a[1] = ustr2a
  end if
  sync all
  if (this_image() == 1) then
    if (str1a /= 1_"abc") STOP 77
  else
    if (str1a /= 1_"XXX") STOP 78
  end if

  ! SCALAR - kind 4 <- 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 4_"abcde"
  ustr1a = 1_"XXX"
  if (this_image() == num_images()) then
    ustr1a[1] = str2a
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1a /= 4_"abc") STOP 79
  else
    if (ustr1a /= 4_"XXX") STOP 80
  end if

  ! - - - - - array = array

  ! contiguous ARRAY - kind 1 <- 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1b(1) = 4_"abc"
  ustr1b(2) = 4_"def"
  ustr1b(3) = 4_"gjh"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b(:)[1] = ustr1b
  end if
  sync all
  if (this_image() == 1) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"def    " &
        .or. str2b(3) /= 1_"gjh    ") STOP 81
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 82
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1b(1) = 1_"abc"
  str1b(2) = 1_"def"
  str1b(3) = 1_"gjh"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b(:)[1] = str1b
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"def    " &
        .or. ustr2b(3) /= 4_"gjh    ") STOP 83
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 84
  end if

  ! contiguous ARRAY - kind 1 <- 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2b(1) = 4_"abcdefg"
  ustr2b(2) = 4_"hijklmn"
  ustr2b(3) = 4_"opqrstu"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b(:)[1] = ustr2b
  end if
  sync all
  if (this_image() == 1) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" &
        .or. str1b(3) /= 1_"opq") STOP 85
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 86
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2b(1) = 1_"abcdefg"
  str2b(2) = 1_"hijklmn"
  str2b(3) = 1_"opqrstu"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b(:)[1] = str2b
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" &
        .or. ustr1b(3) /= 4_"opq") STOP 87
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 88
  end if

  ! - - - - - array = scalar

  ! contiguous ARRAY - kind 1 <- 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b(:)[1] = ustr1a
  end if
  sync all
  if (this_image() == 1) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"abc    " &
        .or. str2b(3) /= 1_"abc    ") STOP 89
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 90
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b(:)[1] = str1a
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"abc    " &
        .or. ustr2b(3) /= 4_"abc    ") STOP 91
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 92
  end if

  ! contiguous ARRAY - kind 1 <- 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcdefg"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b(:)[1] = ustr2a
  end if
  sync all
  if (this_image() == 1) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" &
        .or. str1b(3) /= 1_"abc") STOP 93
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 94
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcdefg"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b(:)[1] = str2a
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" &
        .or. ustr1b(3) /= 4_"abc") STOP 95
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 96
  end if

  ! ---------- Take from a coindexed variable -------------

  ! - - - - - scalar = scalar

  ! SCALAR - kind 1 <- 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  str2a = 1_"XXXXXXX"
  if (this_image() == num_images()) then
    str2a = ustr1a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str2a /= 1_"abc    ") STOP 97
  else
    if (str2a /= 1_"XXXXXXX") STOP 98
  end if

  ! SCALAR - kind 4 <- 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  ustr2a = 4_"XXXXXXX"
  if (this_image() == num_images()) then
    ustr2a = str1a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr2a /= 4_"abc    ") STOP 99
  else
    if (ustr2a /= 4_"XXXXXXX") STOP 100
  end if

  ! SCALAR - kind 1 <- 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcde"
  str1a = 1_"XXX"
  if (this_image() == num_images()) then
    str1a = ustr2a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str1a /= 1_"abc") STOP 101
  else
    if (str1a /= 1_"XXX") STOP 102
  end if

  ! SCALAR - kind 4 <- 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcde"
  ustr1a = 4_"XXX"
  if (this_image() == num_images()) then
    ustr1a = str2a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr1a /= 4_"abc") STOP 103
  else
    if (ustr1a /= 4_"XXX") STOP 104
  end if

  ! - - - - - array = array

  ! contiguous ARRAY - kind 1 <- 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1b(1) = 4_"abc"
  ustr1b(2) = 4_"def"
  ustr1b(3) = 4_"gjh"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b = ustr1b(:)[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"def    " &
        .or. str2b(3) /= 1_"gjh    ") STOP 105
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 106
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1b(1) = 1_"abc"
  str1b(2) = 1_"def"
  str1b(3) = 1_"gjh"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b = str1b(:)[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"def    " &
        .or. ustr2b(3) /= 4_"gjh    ") STOP 107
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 108
  end if

  ! contiguous ARRAY - kind 1 <- 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2b(1) = 4_"abcdefg"
  ustr2b(2) = 4_"hijklmn"
  ustr2b(3) = 4_"opqrstu"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b = ustr2b(:)[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" &
        .or. str1b(3) /= 1_"opq") STOP 109
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 110
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2b(1) = 1_"abcdefg"
  str2b(2) = 1_"hijklmn"
  str2b(3) = 1_"opqrstu"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b = str2b(:)[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" &
        .or. ustr1b(3) /= 4_"opq") STOP 111
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 112
  end if

  ! - - - - - array = scalar

  ! contiguous ARRAY - kind 1 <- 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b = ustr1a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"abc    " &
        .or. str2b(3) /= 1_"abc    ") STOP 113
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 114
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b = str1a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"abc    " &
        .or. ustr2b(3) /= 4_"abc    ") STOP 115
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 116
  end if

  ! contiguous ARRAY - kind 1 <- 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcdefg"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b = ustr2a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" &
        .or. str1b(3) /= 1_"abc") STOP 117
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 118
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcdefg"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b = str2a[1]
  end if
  sync all
  if (this_image() == num_images()) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" &
        .or. ustr1b(3) /= 4_"abc") STOP 119
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 120
  end if


  ! ---------- coindexed to coindexed variable -------------

  ! - - - - - scalar = scalar

  ! SCALAR - kind 1 <- 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  str2a = 1_"XXXXXXX"
  if (this_image() == num_images()) then
    str2a[1] = ustr1a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str2a /= 1_"abc    ") STOP 121
  else
    if (str2a /= 1_"XXXXXXX") STOP 122
  end if

  ! SCALAR - kind 4 <- 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  ustr2a = 4_"XXXXXXX"
  if (this_image() == num_images()) then
    ustr2a[1] = str1a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2a /= 4_"abc    ") STOP 123
  else
    if (ustr2a /= 4_"XXXXXXX") STOP 124
  end if

  ! SCALAR - kind 1 <- 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcde"
  str1a = 1_"XXX"
  if (this_image() == num_images()) then
    str1a[1] = ustr2a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str1a /= 1_"abc") STOP 125
  else
    if (str1a /= 1_"XXX") STOP 126
  end if

  ! SCALAR - kind 4 <- 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcde"
  ustr1a = 4_"XXX"
  if (this_image() == num_images()) then
    ustr1a[1] = str2a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1a /= 4_"abc") STOP 127
  else
    if (ustr1a /= 4_"XXX") STOP 128
  end if

  ! - - - - - array = array

  ! contiguous ARRAY - kind 1 <- 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1b(1) = 4_"abc"
  ustr1b(2) = 4_"def"
  ustr1b(3) = 4_"gjh"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b(:)[1] = ustr1b(:)[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"def    " &
        .or. str2b(3) /= 1_"gjh    ") STOP 129
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 130
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1b(1) = 1_"abc"
  str1b(2) = 1_"def"
  str1b(3) = 1_"gjh"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b(:)[1] = str1b(:)[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"def    " &
        .or. ustr2b(3) /= 4_"gjh    ") STOP 131
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 132
  end if

  ! contiguous ARRAY - kind 1 <- 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2b(1) = 4_"abcdefg"
  ustr2b(2) = 4_"hijklmn"
  ustr2b(3) = 4_"opqrstu"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b(:)[1] = ustr2b(:)[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" &
        .or. str1b(3) /= 1_"opq") STOP 133
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 134
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2b(1) = 1_"abcdefg"
  str2b(2) = 1_"hijklmn"
  str2b(3) = 1_"opqrstu"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b(:)[1] = str2b(:)[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" &
        .or. ustr1b(3) /= 4_"opq") STOP 135
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 136
  end if

  ! - - - - - array = scalar

  ! contiguous ARRAY - kind 1 <- 4 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr1a = 4_"abc"
  str2b(1) = 1_"XXXXXXX"
  str2b(2) = 1_"YYYYYYY"
  str2b(3) = 1_"ZZZZZZZ"
  if (this_image() == num_images()) then
    str2b(:)[1] = ustr1a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str2b(1) /= 1_"abc    " .or. str2b(2) /= 1_"abc    " &
        .or. str2b(3) /= 1_"abc    ") STOP 137
  else
    if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" &
        .or. str2b(3) /= 1_"ZZZZZZZ") STOP 138
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with padding
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str1a = 1_"abc"
  ustr2b(1) = 4_"XXXXXXX"
  ustr2b(2) = 4_"YYYYYYY"
  ustr2b(3) = 4_"ZZZZZZZ"
  if (this_image() == num_images()) then
    ustr2b(:)[1] = str1a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr2b(1) /= 4_"abc    " .or. ustr2b(2) /= 4_"abc    " &
        .or. ustr2b(3) /= 4_"abc    ") STOP 139
  else
    if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" &
        .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 140
  end if

  ! contiguous ARRAY - kind 1 <- 4 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  ustr2a = 4_"abcdefg"
  str1b(1) = 1_"XXX"
  str1b(2) = 1_"YYY"
  str1b(3) = 1_"ZZZ"
  if (this_image() == num_images()) then
    str1b(:)[1] = ustr2a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" &
        .or. str1b(3) /= 1_"abc") STOP 141
  else
    if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" &
        .or. str1b(3) /= 1_"ZZZ") STOP 142
  end if

  ! contiguous ARRAY - kind 4 <- 1 - with trimming
  str1a = 1_"zzz"; str1b = 1_"zzz"; ustr1a = 4_"zzz"; ustr1b = 4_"zzz"
  str2a = 1_"zzzzzzzz"; str2b = 1_"zzzzzzzz"
  ustr2a = 4_"zzzzzzzz"; ustr2b = 4_"zzzzzzzz"
  str2a = 1_"abcdefg"
  ustr1b(1) = 4_"XXX"
  ustr1b(2) = 4_"YYY"
  ustr1b(3) = 4_"ZZZ"
  if (this_image() == num_images()) then
    ustr1b(:)[1] = str2a[mod(1, num_images())+1]
  end if
  sync all
  if (this_image() == 1) then
    if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" &
        .or. ustr1b(3) /= 4_"abc") STOP 143
  else
    if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" &
        .or. ustr1b(3) /= 4_"ZZZ") STOP 144
  end if

end subroutine char_test
end program test