blob: 16bcee86c3d00eca8de8cfd2e32b4d2ff7620776 [file] [log] [blame]
! { dg-do compile }
! Tests patch for PR29407, in which the declaration of 'my' as
! a local variable was ignored, so that the procedure and namelist
! attributes for 'my' clashed..
! Contributed by Tobias Burnus <>
program main
implicit none
subroutine my
end subroutine my
subroutine bar
integer :: my
namelist /ops/ my
end subroutine bar
end program main