diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_decl_28.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_decl_28.f90 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_28.f90 b/gcc/testsuite/gfortran.dg/proc_decl_28.f90 new file mode 100644 index 0000000000..b3a557b149 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/proc_decl_28.f90 @@ -0,0 +1,15 @@ +! { dg-do compile } +! +! PR 53956: [F03] PROCEDURE w/ interface: Bogus "EXTERNAL attribute conflicts with FUNCTION attribute" +! +! Contributed by James van Buskirk + + interface + subroutine sub (a) + integer, external :: a + end subroutine + end interface + + procedure(sub) :: proc + +end |