diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/binding_label_tests_11_main.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/binding_label_tests_11_main.f03 | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_11_main.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests_11_main.f03 index 53eac7cf54..851c32ce7c 100644 --- a/gcc/testsuite/gfortran.dg/binding_label_tests_11_main.f03 +++ b/gcc/testsuite/gfortran.dg/binding_label_tests_11_main.f03 @@ -5,15 +5,14 @@ module binding_label_tests_11_main use iso_c_binding, only: c_int implicit none contains - function one() bind(c, name="c_one") ! { dg-error "collides" } + function one() bind(c, name="c_one") ! { dg-error "Procedure one with binding label c_one at .1. uses the same global identifier as entity at .2." } integer(c_int) one one = 1 end function one end module binding_label_tests_11_main program main - use binding_label_tests_11 ! { dg-error "collides" } + use binding_label_tests_11 ! { dg-error "Procedure one with binding label c_one at .1. uses the same global identifier as entity at .2." } use binding_label_tests_11_main end program main - -! { dg-final { cleanup-modules "binding_label_tests_11_main binding_label_tests_11" } } +! { dg-final { cleanup-modules "binding_label_tests_11" } } |