diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/warn_target_lifetime_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/warn_target_lifetime_3.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/warn_target_lifetime_3.f90 b/gcc/testsuite/gfortran.dg/warn_target_lifetime_3.f90 index 9113a885fa6..6c8ea5b9458 100644 --- a/gcc/testsuite/gfortran.dg/warn_target_lifetime_3.f90 +++ b/gcc/testsuite/gfortran.dg/warn_target_lifetime_3.f90 @@ -10,7 +10,7 @@ subroutine test integer, target :: t p => t contains - subroutine sub() + subroutine sub() ! { dg-warning "defined but not used" } if (p /= 0) return end subroutine end subroutine @@ -22,7 +22,7 @@ contains integer, target :: t2 p2 => t2 ! { dg-warning "Pointer at .1. in pointer assignment might outlive the pointer target" } contains - subroutine sub() + subroutine sub() ! { dg-warning "defined but not used" } if (p2 /= 0) return end subroutine end subroutine |