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