1! { dg-do compile } 2! Tests patch for PR29407, in which the declaration of 'my' as 3! a local variable was ignored, so that the procedure and namelist 4! attributes for 'my' clashed.. 5! 6! Contributed by Tobias Burnus <tobias.burnus@physik.fu-berlin.de> 7! 8program main 9 implicit none 10contains 11 subroutine my 12 end subroutine my 13 subroutine bar 14 integer :: my 15 namelist /ops/ my 16 end subroutine bar 17end program main 18 19