Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(4)

Unified Diff: gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03

Issue 3050029: [gcc] GCC 4.5.0=>4.5.1 (Closed) Base URL: ssh://git@gitrw.chromium.org:9222/nacl-toolchain.git
Patch Set: Created 10 years, 5 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View side-by-side diff with in-line comments
Download patch
« no previous file with comments | « gcc/gcc/testsuite/gfortran.dg/backspace_8.f ('k') | gcc/gcc/testsuite/gfortran.dg/block_name_2.f90 » ('j') | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
Index: gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
diff --git a/gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03 b/gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
index 0f50a08b7e0e37476357eae0dcfe451034a51dbe..cdf1ef880dfd4d4322a071f0e388abeae088d089 100644
--- a/gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
+++ b/gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
@@ -2,18 +2,18 @@
module x
use iso_c_binding
implicit none
- private :: bar ! { dg-warning "PRIVATE but has been given the binding label" }
+ private :: bar
private :: my_private_sub
- private :: my_private_sub_2 ! { dg-warning "PRIVATE but has been given the binding label" }
+ private :: my_private_sub_2
public :: my_public_sub
contains
- subroutine bar() bind(c,name="foo")
+ subroutine bar() bind(c,name="foo") ! { dg-warning "PRIVATE but has been given the binding label" }
end subroutine bar
subroutine my_private_sub() bind(c, name="")
end subroutine my_private_sub
- subroutine my_private_sub_2() bind(c)
+ subroutine my_private_sub_2() bind(c) ! { dg-warning "PRIVATE but has been given the binding label" }
end subroutine my_private_sub_2
subroutine my_public_sub() bind(c, name="my_sub")
« no previous file with comments | « gcc/gcc/testsuite/gfortran.dg/backspace_8.f ('k') | gcc/gcc/testsuite/gfortran.dg/block_name_2.f90 » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698