diff options
Diffstat (limited to 'flang/test/Semantics')
-rw-r--r-- | flang/test/Semantics/separate-mp02.f90 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/flang/test/Semantics/separate-mp02.f90 b/flang/test/Semantics/separate-mp02.f90 index 5d13b6b..c63ab6f 100644 --- a/flang/test/Semantics/separate-mp02.f90 +++ b/flang/test/Semantics/separate-mp02.f90 @@ -148,6 +148,8 @@ module m2b end module subroutine s6() bind(c) end + module subroutine s7() bind(c, name="s7") + end end interface end @@ -172,6 +174,8 @@ contains !ERROR: Module subprogram 's6' has binding label 'not_s6' but the corresponding interface body has 's6' module subroutine s6() bind(c, name="not_s6") end + module procedure s7 + end end |