diff options
Diffstat (limited to 'gcc-4.4.0/gcc/testsuite/gfortran.dg')
5 files changed, 41 insertions, 4 deletions
diff --git a/gcc-4.4.0/gcc/testsuite/gfortran.dg/argument_checking_13.f90 b/gcc-4.4.0/gcc/testsuite/gfortran.dg/argument_checking_13.f90 index ae3fd22b4..af7dfe1b9 100644 --- a/gcc-4.4.0/gcc/testsuite/gfortran.dg/argument_checking_13.f90 +++ b/gcc-4.4.0/gcc/testsuite/gfortran.dg/argument_checking_13.f90 @@ -79,5 +79,14 @@ call rlv3(pointer_dummy(1,1,1)) ! { dg-warning "contains too few elements" } call rlv3(deferred(1,1,1)(1:2)) ! Valid since contiguous call rlv3(ptr(1,1,1)(1:2)) ! { dg-warning "contains too few elements" } call rlv3(assumed_sh_dummy(1,1,1)(1:2)) ! { dg-warning "contains too few elements" } -call rlv3(pointer_dummy(1,1,1)(1:2)) ! { dg-warning "contains too few elements" } +! This test is flaky on Dapper Server (amd64) / xen with packages: +! expect-tcl8.3 5.43.0-3ubuntu1 +! dejagnu 1.4.4-1ubuntu1 +! Sometimes dejagnu doesn't see the last line of warning output from the +! compiler for *only* the following call. Dejagnu always sees at least *some* +! output, even if not the complete correct output, which fails the excess +! errors test if the complete error output is not seen. To work around the +! flakiness, we've changed this from dg-warning to dg-excess-errors, so that +! the compiler's output for this line will always be matched as excess. +call rlv3(pointer_dummy(1,1,1)(1:2)) ! { dg-excess-errors "compensate for flaky test" } end diff --git a/gcc-4.4.0/gcc/testsuite/gfortran.dg/ltrans-7.f90 b/gcc-4.4.0/gcc/testsuite/gfortran.dg/ltrans-7.f90 index ce5af4753..2829b2cda 100644 --- a/gcc-4.4.0/gcc/testsuite/gfortran.dg/ltrans-7.f90 +++ b/gcc-4.4.0/gcc/testsuite/gfortran.dg/ltrans-7.f90 @@ -26,5 +26,5 @@ Program FOO end Program FOO ! Please do not XFAIL. -! { dg-final { scan-tree-dump-times "transformed loop" 1 "ltrans" { xfail *-*-* } } } +! { dg-final { scan-tree-dump-times "transformed loop" 1 "ltrans"} } ! { dg-final { cleanup-tree-dump "ltrans" } } diff --git a/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr25923.f90 b/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr25923.f90 index f075944b9..21d8f05cd 100644 --- a/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr25923.f90 +++ b/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr25923.f90 @@ -10,11 +10,11 @@ implicit none contains - function baz(arg) result(res) ! { dg-warning "res.yr' may be" } + function baz(arg) result(res) ! { dg-warning "res.yr' may be" "" { target { ilp32 } } } type(bar), intent(in) :: arg type(bar) :: res logical, external:: some_func - if (.not. some_func(arg)) then + if (.not. some_func(arg)) then ! { dg-warning "res.yr' may be" "" { target { lp64 } } } call fatal('arg not valid') else res = arg diff --git a/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr39666-1.f90 b/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr39666-1.f90 new file mode 100644 index 000000000..31840ec1d --- /dev/null +++ b/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr39666-1.f90 @@ -0,0 +1,14 @@ +! PR middle-end/39666 +! { dg-do compile } +! { dg-options "-O2 -Wuninitialized" } + +FUNCTION f(n) + INTEGER, INTENT(in) :: n + REAL :: f + + SELECT CASE (n) + CASE (:-1); f = -1.0 + CASE (0); f = 0.0 + CASE (1:); f = 1.0 + END SELECT +END FUNCTION diff --git a/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr39666-2.f90 b/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr39666-2.f90 new file mode 100644 index 000000000..c90b39408 --- /dev/null +++ b/gcc-4.4.0/gcc/testsuite/gfortran.dg/pr39666-2.f90 @@ -0,0 +1,14 @@ +! PR middle-end/39666 +! { dg-do compile } +! { dg-options "-O2 -Wuninitialized" } + +FUNCTION f(n) + INTEGER, INTENT(in) :: n + REAL :: f + + SELECT CASE (n) ! { dg-warning "may be used uninitialized" } + CASE (:-1); f = -1.0 + CASE (0); f = 0.0 + CASE (2:); f = 1.0 + END SELECT +END FUNCTION |