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