1! { dg-do compile }
2! Tests the fix for PR31494, where the call of sub2 would reference
3! the variable, rather than the contained subroutine.
4!
5! Contributed by Michael Richmond <michael.a.richmond@nasa.gov>
6!
7MODULE ksbin2_aux_mod
8REAL, DIMENSION(1) :: sub2
9CONTAINS
10  SUBROUTINE sub1
11    CALL sub2
12    CONTAINS
13      SUBROUTINE sub2
14      END SUBROUTINE sub2
15  END SUBROUTINE sub1
16END MODULE ksbin2_aux_mod
17