Commit 9b90d490 by Janus Weil

re PR fortran/84381 (replace non-std 'call abort' by 'stop 1' in gfortran testsuite)

2018-02-18  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/84381
	* gfortran.dg/io_real_boz2.f90: Remove option "-fall-intrinsics".
	* gfortran.dg/pointer_intent_3.f90: Ditto.
	* gfortran.dg/proc_ptr_common_1.f90: Ditto.
	* gfortran.dg/protected_3.f90: Ditto.
	* gfortran.dg/protected_4.f90: Ditto.
	* gfortran.dg/protected_5.f90: Ditto.
	* gfortran.dg/protected_6.f90: Ditto.

From-SVN: r257789
parent d5ace305
2018-02-18 Janus Weil <janus@gcc.gnu.org>
PR fortran/84381
* gfortran.dg/io_real_boz2.f90: Remove option "-fall-intrinsics".
* gfortran.dg/pointer_intent_3.f90: Ditto.
* gfortran.dg/proc_ptr_common_1.f90: Ditto.
* gfortran.dg/protected_3.f90: Ditto.
* gfortran.dg/protected_4.f90: Ditto.
* gfortran.dg/protected_5.f90: Ditto.
* gfortran.dg/protected_6.f90: Ditto.
2018-02-18 Paul Thomas <pault@gcc.gnu.org> 2018-02-18 Paul Thomas <pault@gcc.gnu.org>
PR fortran/80945 PR fortran/80945
......
! { dg-do run } ! { dg-do run }
! { dg-shouldfail "Real BOZ not allowed" } ! { dg-shouldfail "Real BOZ not allowed" }
! { dg-options "-fall-intrinsics -std=f2003" } ! { dg-options "-std=f2003" }
! Test for invalid (F95/F2003) writing of real with octal edit descriptor ! Test for invalid (F95/F2003) writing of real with octal edit descriptor
! PR fortran/29625 ! PR fortran/29625
program real_boz program real_boz
......
! { dg-do compile } ! { dg-do compile }
! { dg-options "-std=f2003 -fall-intrinsics" } ! { dg-options "-std=f2003" }
! { dg-shouldfail "Invalid code" } ! { dg-shouldfail "Invalid code" }
! !
! Pointer intent test ! Pointer intent test
......
! { dg-do run } ! { dg-do run }
! { dg-options "-std=f2003 -fall-intrinsics" } ! { dg-options "-std=f2003" }
! !
! PR fortran/36592 ! PR fortran/36592
! !
......
! { dg-options "-std=f95 -fall-intrinsics" } ! { dg-options "-std=f95" }
! PR fortran/23994 ! PR fortran/23994
! !
! Test PROTECTED attribute. Within the module everything is allowed. ! Test PROTECTED attribute. Within the module everything is allowed.
......
! { dg-do compile } ! { dg-do compile }
! { dg-shouldfail "Invalid Fortran 2003 code" } ! { dg-shouldfail "Invalid Fortran 2003 code" }
! { dg-options "-std=f2003 -fall-intrinsics" } ! { dg-options "-std=f2003" }
! PR fortran/23994 ! PR fortran/23994
! !
! Test PROTECTED attribute. Within the module everything is allowed. ! Test PROTECTED attribute. Within the module everything is allowed.
......
! { dg-do compile } ! { dg-do compile }
! { dg-shouldfail "Invalid Fortran 2003 code" } ! { dg-shouldfail "Invalid Fortran 2003 code" }
! { dg-options "-std=f2003 -fall-intrinsics" } ! { dg-options "-std=f2003" }
! PR fortran/23994 ! PR fortran/23994
! !
! Test PROTECTED attribute. Within the module everything is allowed. ! Test PROTECTED attribute. Within the module everything is allowed.
......
! { dg-do compile } ! { dg-do compile }
! { dg-shouldfail "Invalid Fortran 2003 code" } ! { dg-shouldfail "Invalid Fortran 2003 code" }
! { dg-options "-std=f2003 -fall-intrinsics" } ! { dg-options "-std=f2003" }
! PR fortran/23994 ! PR fortran/23994
! !
! Test PROTECTED attribute. Within the module everything is allowed. ! Test PROTECTED attribute. Within the module everything is allowed.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment