diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/namelist_assumed_char.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_assumed_char.f90 | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/namelist_assumed_char.f90 b/gcc/testsuite/gfortran.dg/namelist_assumed_char.f90 new file mode 100644 index 000000000..b7d063c78 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_assumed_char.f90 @@ -0,0 +1,20 @@ +! { dg-do compile } +! { dg-options "-std=f95" } + +! PR30481 Assumed size character is not allowed in namelist. +! Test case from PR, submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org> +! +! Modifications for PR fortran/47339 / PR fortran/43062: +! Add -std=f95, add bar() +! +subroutine foo(c) + character*(*) c + namelist /abc/ c ! { dg-error "nonconstant character length in namelist" } +end subroutine + +subroutine bar(d,n) + integer :: n + character(len=n) d + namelist /abcd/ d ! { dg-error "nonconstant character length in namelist" } +end subroutine bar + |