diff options
Diffstat (limited to 'gcc/testsuite')
36 files changed, 0 insertions, 505 deletions
diff --git a/gcc/testsuite/g++.dg/abi/covariant5.C b/gcc/testsuite/g++.dg/abi/covariant5.C deleted file mode 100644 index 03e55583d03..00000000000 --- a/gcc/testsuite/g++.dg/abi/covariant5.C +++ /dev/null @@ -1,52 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation, Inc. -// Contributed by Nathan Sidwell 4 Apr 2005 <nathan@codesourcery.com> - -// { dg-do run } - -// PR 20746: Covariant return pointer could be null. - -// Origin: yanliu@ca.ibm.com -// nathan@codesourcery.com - -struct A { - virtual void One (); -}; -struct B { - virtual B *Two (); - virtual B &Three (); -}; - -struct C : A, B -{ - virtual C *Two (); - virtual C &Three (); -}; -void A::One () {} -B *B::Two() {return this;} -B &B::Three() {return *this;} -C *C::Two () {return 0;} -C &C::Three () {return *(C *)0;} - -B *Foo (B *b) -{ - return b->Two (); -} - -B &Bar (B *b) -{ - return b->Three (); -} - -int main () -{ - C c; - - /* We should not adjust a null pointer. */ - if (Foo (&c)) - return 1; - /* But we should adjust a (bogus) null reference. */ - if (!&Bar (&c)) - return 2; - - return 0; -} diff --git a/gcc/testsuite/g++.dg/lookup/hidden-class1.C b/gcc/testsuite/g++.dg/lookup/hidden-class1.C deleted file mode 100644 index fc71e96fb7f..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-class1.C +++ /dev/null @@ -1,8 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - friend class B; - B *b; // { dg-error "no type|expected" } -}; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-class2.C b/gcc/testsuite/g++.dg/lookup/hidden-class2.C deleted file mode 100644 index 19287a5fb21..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-class2.C +++ /dev/null @@ -1,9 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - friend class B; -}; - -class B* b; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-class3.C b/gcc/testsuite/g++.dg/lookup/hidden-class3.C deleted file mode 100644 index 50a7e331cbb..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-class3.C +++ /dev/null @@ -1,10 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - friend class B; - - class B; - B *b; -}; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-class4.C b/gcc/testsuite/g++.dg/lookup/hidden-class4.C deleted file mode 100644 index c407692caf9..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-class4.C +++ /dev/null @@ -1,10 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - friend class B; -}; - -class B *b; -B *c; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-class5.C b/gcc/testsuite/g++.dg/lookup/hidden-class5.C deleted file mode 100644 index 1cf06bcc395..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-class5.C +++ /dev/null @@ -1,9 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - friend class B; -}; - -B* b; // { dg-error "expected" } diff --git a/gcc/testsuite/g++.dg/lookup/hidden-class6.C b/gcc/testsuite/g++.dg/lookup/hidden-class6.C deleted file mode 100644 index 96425353911..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-class6.C +++ /dev/null @@ -1,14 +0,0 @@ -// { dg-do compile } - -// Origin: Jay Cox <jaycox@gimp.org> - -// PR c++/1016: Name lookup for injected friend class - -class B; - -namespace N { - class A { - friend class B; - B* b; - }; -} diff --git a/gcc/testsuite/g++.dg/lookup/hidden-class7.C b/gcc/testsuite/g++.dg/lookup/hidden-class7.C deleted file mode 100644 index f681cd649f1..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-class7.C +++ /dev/null @@ -1,13 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - friend class B; -}; - -class C { - friend class B; -}; - -B *b; // { dg-error "expected" } diff --git a/gcc/testsuite/g++.dg/lookup/hidden-class8.C b/gcc/testsuite/g++.dg/lookup/hidden-class8.C deleted file mode 100644 index ea4e2f1bbdc..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-class8.C +++ /dev/null @@ -1,12 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -namespace N { - class A { - friend class B; - }; -} - -class N::B { // { dg-error "not name a class" } -}; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-class9.C b/gcc/testsuite/g++.dg/lookup/hidden-class9.C deleted file mode 100644 index de86b12694e..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-class9.C +++ /dev/null @@ -1,11 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -namespace N { - class A { - friend class B; - }; -} - -using N::B; // { dg-error "declared" } diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class1.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class1.C deleted file mode 100644 index c92b7f66a1a..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class1.C +++ /dev/null @@ -1,8 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - template <class T> friend class B; - B<int> *b; // { dg-error "no type|expected" } -}; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class10.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class10.C deleted file mode 100644 index 2134635a263..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class10.C +++ /dev/null @@ -1,12 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -namespace N { - class A { - template <class T> friend class B; - }; -} - -template <class T> class N::B { // { dg-error "not name a class" } -}; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class11.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class11.C deleted file mode 100644 index 6e8cbdbb654..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class11.C +++ /dev/null @@ -1,11 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -namespace N { - class A { - template <class T> friend class B; - }; -} - -using N::B; // { dg-error "declared" } diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class2.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class2.C deleted file mode 100644 index 56ba76b3aed..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class2.C +++ /dev/null @@ -1,9 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - template <class T> friend class B; -}; - -class B* b; // { dg-error "argument required|invalid" } diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class3.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class3.C deleted file mode 100644 index 3f96622ea4a..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class3.C +++ /dev/null @@ -1,9 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - template <class T> friend class B; - template <class T> class B; - B<int> *b; -}; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class4.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class4.C deleted file mode 100644 index 02dc9c3e50f..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class4.C +++ /dev/null @@ -1,9 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - template <class T> friend class B; -}; - -B<int> *b; // { dg-error "expected" } diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class5.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class5.C deleted file mode 100644 index e6b30b291f9..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class5.C +++ /dev/null @@ -1,10 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - template <class T> friend class B; -}; - -template <class T> class B; -B<int>* b; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class6.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class6.C deleted file mode 100644 index 2072695ba7d..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class6.C +++ /dev/null @@ -1,11 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class B; -namespace N { - class A { - template <class T> friend class B; - B* b; - }; -} diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class7.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class7.C deleted file mode 100644 index 22804d782a0..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class7.C +++ /dev/null @@ -1,13 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - template <class T> friend class B; -}; - -class C { - template <class T> friend class B; -}; - -B<int> *b; // { dg-error "expected" } diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class8.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class8.C deleted file mode 100644 index 247c78cf37a..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class8.C +++ /dev/null @@ -1,11 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - template <class T> friend class B; -}; - -class C { - friend class B; // { dg-error "argument required|friend" } -}; diff --git a/gcc/testsuite/g++.dg/lookup/hidden-temp-class9.C b/gcc/testsuite/g++.dg/lookup/hidden-temp-class9.C deleted file mode 100644 index 783139b66ab..00000000000 --- a/gcc/testsuite/g++.dg/lookup/hidden-temp-class9.C +++ /dev/null @@ -1,11 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation -// Contributed by Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> -// { dg-do compile } - -class A { - friend class B; -}; - -class C { - template <class T> friend class B; // { dg-error "not a template" } -}; diff --git a/gcc/testsuite/g++.dg/template/spec20.C b/gcc/testsuite/g++.dg/template/spec20.C deleted file mode 100644 index 71548e4af9b..00000000000 --- a/gcc/testsuite/g++.dg/template/spec20.C +++ /dev/null @@ -1,19 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation, Inc. -// Contributed by Nathan Sidwell 31 Mar 2005 <nathan@codesourcery.com> - -// Origin: Giovanni Bajo <giovannibajo@libero.it> -// Bug 19203: Failure to implement DR 214 - -template <class A> -void foo(const A& a); - -template <class RET, class ARG1> -int foo(RET (&)(ARG1)); // this one - - -float decl(int); - -int bar(void) -{ - return foo(decl); -} diff --git a/gcc/testsuite/g++.dg/template/spec21.C b/gcc/testsuite/g++.dg/template/spec21.C deleted file mode 100644 index e04ac5a2da9..00000000000 --- a/gcc/testsuite/g++.dg/template/spec21.C +++ /dev/null @@ -1,28 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation, Inc. -// Contributed by Nathan Sidwell 31 Mar 2005 <nathan@codesourcery.com> - -// { dg-do run } -// DR214 - -template <class T> T f(int) {return 0;} -template <class T, class U> T f(U){return 1;} - -template <typename T, typename R> T checked_cast (R const &) {return 0;} -template <typename T, typename R> T checked_cast (R *) {return 1;} - - -int main () -{ - int i = 0; - - if (f<int>(1)) - return 1; - - if (checked_cast<int>(i) != 0) - return 2; - - if (checked_cast<int>(&i) != 1) - return 3; - - return 0; -} diff --git a/gcc/testsuite/g++.dg/template/spec22.C b/gcc/testsuite/g++.dg/template/spec22.C deleted file mode 100644 index e2d439c9252..00000000000 --- a/gcc/testsuite/g++.dg/template/spec22.C +++ /dev/null @@ -1,22 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation, Inc. -// Contributed by Nathan Sidwell 2 Apr 2005 <nathan@codesourcery.com> - -// PR 20723 -// Origin: Andrew Pinski <pinskia@gcc.gnu.org> -// Nathan Sidwell <nathan@gcc.gnu.org> - -template <typename T> -int operator+ (T const &, int); // { dg-error "T = Foo" "" } - -struct Foo -{ - template <typename T> - int operator+ (T) const; // { dg-error "T = int" "" } -}; - -int main () -{ - Foo f; - - return f + 0; // { dg-error "ambiguous overload" "" } -} diff --git a/gcc/testsuite/g++.dg/template/spec23.C b/gcc/testsuite/g++.dg/template/spec23.C deleted file mode 100644 index 00272ad4995..00000000000 --- a/gcc/testsuite/g++.dg/template/spec23.C +++ /dev/null @@ -1,25 +0,0 @@ -// Copyright (C) 2005 Free Software Foundation, Inc. -// Contributed by Nathan Sidwell 2 Apr 2005 <nathan@codesourcery.com> - -// PR 20723 -// Origin: Andrew Pinski <pinskia@gcc.gnu.org> -// Nathan Sidwell <nathan@gcc.gnu.org> - -struct Foo -{ - template <typename T> - Foo (const T &); // { dg-error "T = Bar" "" } -}; - -struct Bar -{ - template <typename T> - operator T () const; // { dg-error "T = Foo" "" } -}; - -Foo Quux (Bar const &b) -{ - return b; // { dg-error "ambiguous" "" } -} - - diff --git a/gcc/testsuite/gfortran.dg/comma_format_extension_1.f b/gcc/testsuite/gfortran.dg/comma_format_extension_1.f deleted file mode 100644 index a3a5a98f155..00000000000 --- a/gcc/testsuite/gfortran.dg/comma_format_extension_1.f +++ /dev/null @@ -1,11 +0,0 @@ -! { dg-do compile } -! { dg-options "" } -! test that the extension for a missing comma is accepted - - subroutine mysub - dimension ibar(5) - write (3,1001) ( ibar(m), m = 1, 5 ) - - 1001 format (/5x,' ',i4' '/ ) - return - end diff --git a/gcc/testsuite/gfortran.dg/comma_format_extension_2.f b/gcc/testsuite/gfortran.dg/comma_format_extension_2.f deleted file mode 100644 index 7eb17b58434..00000000000 --- a/gcc/testsuite/gfortran.dg/comma_format_extension_2.f +++ /dev/null @@ -1,10 +0,0 @@ -! { dg-do compile } -! test that the extension for a missing comma is accepted - - subroutine mysub - dimension ibar(5) - write (3,1001) ( ibar(m), m = 1, 5 ) - - 1001 format (/5x,' ',i4' '/ ) ! { dg-warning "Missing comma" } - return - end diff --git a/gcc/testsuite/gfortran.dg/comma_format_extension_3.f b/gcc/testsuite/gfortran.dg/comma_format_extension_3.f deleted file mode 100644 index 15ee18905c4..00000000000 --- a/gcc/testsuite/gfortran.dg/comma_format_extension_3.f +++ /dev/null @@ -1,16 +0,0 @@ -! PR libfortran/15332 and PR fortran/13257 -! We used to accept this as an extension but -! did do the correct thing at runtime. -! Note the missing , before i1 in the format. -! { do-do run } -! { dg-options "" } - character*12 c - - write (c,100) 0, 1 - if (c .ne. 'i = 0, j = 1') call abort - - write (c,100) 0 - if (c .ne. 'i = 0 ') call abort - - 100 format ('i = 'i1,:,', j = ',i1) - end diff --git a/gcc/testsuite/gfortran.dg/comma_format_extension_4.f b/gcc/testsuite/gfortran.dg/comma_format_extension_4.f deleted file mode 100644 index 5f6ecc5073b..00000000000 --- a/gcc/testsuite/gfortran.dg/comma_format_extension_4.f +++ /dev/null @@ -1,10 +0,0 @@ -! PR fortran/13257 -! Note the missing , before i1 in the format. -! { do-do run } -! { dg-options "" } - character*5 c - write (c,1001) 1 - if (c .ne. ' 1 ') call abort - - 1001 format (' ',i4' ') - end diff --git a/gcc/testsuite/gfortran.dg/eor_handling_1.f90 b/gcc/testsuite/gfortran.dg/eor_handling_1.f90 deleted file mode 100644 index 241f8a0fe4e..00000000000 --- a/gcc/testsuite/gfortran.dg/eor_handling_1.f90 +++ /dev/null @@ -1,14 +0,0 @@ -! { dg-do run } -! PR 17992: Reading an empty file should yield zero with pad='YES' -! (which is the default). -! Test case supplied by milan@cmm.ki.si. -program main - open(77,status='scratch') - write(77,'(A)') '','' - rewind(77) - i = 42 - j = 42 - read(77,'(/2i2)') i,j - if (i /= 0 .or. j /= 0) call abort - close(77) -end program main diff --git a/gcc/testsuite/gfortran.dg/eor_handling_2.f90 b/gcc/testsuite/gfortran.dg/eor_handling_2.f90 deleted file mode 100644 index 5eb62f8a894..00000000000 --- a/gcc/testsuite/gfortran.dg/eor_handling_2.f90 +++ /dev/null @@ -1,13 +0,0 @@ -! { dg-do run } -! PR 19568: Don't read across end of line when the format is longer -! than the line length and pad='yes' (default) -program main - character(len=1) c1(10),c2(10) - open(77,status='scratch') - write(77,'(A)') 'Line 1','Line 2','Line 3' - rewind(77) - read(77,'(10A1)'), c1 - read(77,'(10A1)'), c2 - if (c1(1) /= 'L' .or. c2(1) /= 'L') call abort - close(77) -end program main diff --git a/gcc/testsuite/gfortran.dg/eor_handling_3.f90 b/gcc/testsuite/gfortran.dg/eor_handling_3.f90 deleted file mode 100644 index 4225e867a85..00000000000 --- a/gcc/testsuite/gfortran.dg/eor_handling_3.f90 +++ /dev/null @@ -1,13 +0,0 @@ -! { dg-do run } -! PR 19595: Handle end-of-record condition with pad=yes (default) -program main - integer i1, i2 - open(77,status='scratch') - write (77,'(A)') '123','456' - rewind(77) - read(77,'(2I2)',advance='no',eor=100) i1,i2 - call abort -100 continue - if (i1 /= 12 .or. i2 /= 3) call abort - close(77) -end program main diff --git a/gcc/testsuite/gfortran.dg/eor_handling_4.f90 b/gcc/testsuite/gfortran.dg/eor_handling_4.f90 deleted file mode 100644 index 300c10b820a..00000000000 --- a/gcc/testsuite/gfortran.dg/eor_handling_4.f90 +++ /dev/null @@ -1,17 +0,0 @@ -! { dg-do run } -! PR 20092, 20131: Handle end-of-record condition with pad=yes (default) -! for standard input. This test case only really tests anything if, -! by changing unit 5, you get to manipulate the standard input. -program main - character(len=1) a(80) - close(5) - open(5,status="scratch") - write(5,'(A)') 'one', 'two', 's' - rewind(5) - do i=1,4 - read(5,'(80a1)') a - if (a(1) == 's') goto 100 - end do - call abort -100 continue -end program main diff --git a/gcc/testsuite/gfortran.dg/eor_handling_5.f90 b/gcc/testsuite/gfortran.dg/eor_handling_5.f90 deleted file mode 100644 index c116fb7bdea..00000000000 --- a/gcc/testsuite/gfortran.dg/eor_handling_5.f90 +++ /dev/null @@ -1,19 +0,0 @@ -! { dg-do run } -! PR 20661: Handle non-advancing I/O with iostat -! Test case by Walt Brainerd, The Fortran Company - -program fc002 - character(len=1) :: c - integer :: k,k2 - character(len=*), parameter :: f="(a)" - open(11,status="scratch", iostat=k) - if (k /= 0) call abort - write(11,f) "x" - rewind (11) - read(11, f, advance="no", iostat=k) c - if (k /= 0) call abort - read(11, f, advance="no", iostat=k) c - if (k >= 0) call abort - read(11, f, advance="no", iostat=k2) c - if (k2 >= 0 .or. k == k2) call abort -end program fc002 diff --git a/gcc/testsuite/gfortran.dg/noadv_size.f90 b/gcc/testsuite/gfortran.dg/noadv_size.f90 deleted file mode 100644 index a3a88b18ca7..00000000000 --- a/gcc/testsuite/gfortran.dg/noadv_size.f90 +++ /dev/null @@ -1,11 +0,0 @@ -! { dg-do run } -! PR 20774: Handle size parameter for non-advancing I/O correctly -program main - open(77,status='scratch') - write(77,'(A)') '123' - rewind(77) - read(77,'(2I2)',advance='no',iostat=k,size=n) i1,i2 - if (k >=0) call abort - if (n /= 3) call abort - if (i1 /= 12 .or. i2 /= 3) call abort -end program main diff --git a/gcc/testsuite/gfortran.dg/pad_no.f90 b/gcc/testsuite/gfortran.dg/pad_no.f90 deleted file mode 100644 index c023adec815..00000000000 --- a/gcc/testsuite/gfortran.dg/pad_no.f90 +++ /dev/null @@ -1,15 +0,0 @@ -! { dg-do run } -! Test correct operation for pad='no'. -program main - character(len=1) line(2) - line = 'x' - open(77,status='scratch',pad='no') - write(77,'(A)') 'a','b' - rewind(77) - read(77,'(2A)',iostat=i) line(1) - if (line(1) /= 'a' .or. line(2) /= 'x') call abort - rewind(77) - line = 'y' - read(77,'(2A)',iostat=i,advance='no') line - if (line(1) /= 'a' .or. line(2) /= 'y') call abort -end program main |