diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/namelist_25.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_25.f90 | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/namelist_25.f90 b/gcc/testsuite/gfortran.dg/namelist_25.f90 new file mode 100644 index 000000000..16bcee86c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_25.f90 @@ -0,0 +1,18 @@ +! { 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 <tobias.burnus@physik.fu-berlin.de> +! +program main + implicit none +contains + subroutine my + end subroutine my + subroutine bar + integer :: my + namelist /ops/ my + end subroutine bar +end program main + |