Subversion Repositories openrisc

! { dg-do run }

! Tests the fix for PR31204, in which 'i' below would be incorrectly

! host associated by the contained subroutines.  The checks for 'ii'

! and 'iii' have been added, since they can be host associated because

! of the explicit declarations in the main program.

!

! Contributed by Joost VandeVondele 

!

  integer ii

  INTEGER, PARAMETER :: jmin(1:10) = (/ (i, i = 1, 10) /)

  INTEGER, PARAMETER :: kmin(1:10) = (/ (ii, ii = 1, 10) /)

  INTEGER, PARAMETER :: lmin(1:10) = (/ (iii, iii = 1, 10) /)

  integer iii

  CALL two

CONTAINS

  SUBROUTINE one

    i = 99

    ii = 99

    iii = 999

  END SUBROUTINE

  SUBROUTINE two

    i = 0

    ii = 0

    iii = 0

    CALL one

    IF (i .NE. 0) CALL ABORT ()

    IF (ii .NE. 99) CALL ABORT ()

    IF (iii .NE. 999) CALL ABORT ()

  END SUBROUTINE

END