Subversion Repositories openrisc

! { dg-do run }

! { dg-do run }

!$ use omp_lib

!$ use omp_lib

  character (len = 8) :: h

  character (len = 8) :: h

  character (len = 9) :: i

  character (len = 9) :: i

  h = '01234567'

  h = '01234567'

  i = 'ABCDEFGHI'

  i = 'ABCDEFGHI'

  call test (h, i, 9)

  call test (h, i, 9)

contains

contains

  subroutine test (p, q, n)

  subroutine test (p, q, n)

    character (len = *) :: p

    character (len = *) :: p

    character (len = n) :: q

    character (len = n) :: q

    character (len = n) :: r

    character (len = n) :: r

    character (len = n) :: t

    character (len = n) :: t

    character (len = n) :: u

    character (len = n) :: u

    integer, dimension (n + 4) :: s

    integer, dimension (n + 4) :: s

    logical :: l

    logical :: l

    integer :: m

    integer :: m

    r = ''

    r = ''

    if (n .gt. 8) r = 'jklmnopqr'

    if (n .gt. 8) r = 'jklmnopqr'

    do m = 1, n + 4

    do m = 1, n + 4

      s(m) = m

      s(m) = m

    end do

    end do

    u = 'abc'

    u = 'abc'

    l = .false.

    l = .false.

!$omp parallel firstprivate (p, q, r) private (t, m) reduction (.or.:l) &

!$omp parallel firstprivate (p, q, r) private (t, m) reduction (.or.:l) &

!$omp & num_threads (2)

!$omp & num_threads (2)

    do m = 1, 13

    do m = 1, 13

      if (s(m) .ne. m) l = .true.

      if (s(m) .ne. m) l = .true.

    end do

    end do

    m = omp_get_thread_num ()

    m = omp_get_thread_num ()

    l = l .or. p .ne. '01234567' .or. q .ne. 'ABCDEFGHI'

    l = l .or. p .ne. '01234567' .or. q .ne. 'ABCDEFGHI'

    l = l .or. r .ne. 'jklmnopqr' .or. u .ne. 'abc'

    l = l .or. r .ne. 'jklmnopqr' .or. u .ne. 'abc'

!$omp barrier

!$omp barrier

    if (m .eq. 0) then

    if (m .eq. 0) then

      p = 'A'

      p = 'A'

      q = 'B'

      q = 'B'

      r = 'C'

      r = 'C'

      t = '123'

      t = '123'

      u = '987654321'

      u = '987654321'

    else if (m .eq. 1) then

    else if (m .eq. 1) then

      p = 'D'

      p = 'D'

      q = 'E'

      q = 'E'

      r = 'F'

      r = 'F'

      t = '456'

      t = '456'

      s = m

      s = m

    end if

    end if

!$omp barrier

!$omp barrier

    l = l .or. u .ne. '987654321'

    l = l .or. u .ne. '987654321'

    if (any (s .ne. 1)) l = .true.

    if (any (s .ne. 1)) l = .true.

    if (m .eq. 0) then

    if (m .eq. 0) then

      l = l .or. p .ne. 'A' .or. q .ne. 'B' .or. r .ne. 'C'

      l = l .or. p .ne. 'A' .or. q .ne. 'B' .or. r .ne. 'C'

      l = l .or. t .ne. '123'

      l = l .or. t .ne. '123'

    else

    else

      l = l .or. p .ne. 'D' .or. q .ne. 'E' .or. r .ne. 'F'

      l = l .or. p .ne. 'D' .or. q .ne. 'E' .or. r .ne. 'F'

      l = l .or. t .ne. '456'

      l = l .or. t .ne. '456'

    end if

    end if

!$omp end parallel

!$omp end parallel

    if (l) call abort

    if (l) call abort

  end subroutine test

  end subroutine test

end

end