From 647e11bb6451398ef174a1875515ec48c5a6c974 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Sat, 27 May 2006 10:11:29 +0300 Subject: [PATCH] libgfortran ChangeLog: 2006-05-27 Janne Blomqvist * intrinsics/abort.c (abort_): Remove. testsuite ChangeLog: 2006-05-27 Janne Blomqvist * gfortran.dg/hollerith_f95.f90: Add -fall-intrinsics. * gfortran.dg/byte_1.f90: Likewise. * gfortran.dg/dup_save_2.f90: Likewise. From-SVN: r114150 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/byte_1.f90 | 2 +- gcc/testsuite/gfortran.dg/dup_save_2.f90 | 2 +- gcc/testsuite/gfortran.dg/hollerith_f95.f90 | 2 +- libgfortran/ChangeLog | 4 ++++ libgfortran/intrinsics/abort.c | 14 +------------- 6 files changed, 14 insertions(+), 16 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 83b4d760b42..07b8fbe30c2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2006-05-27 Janne Blomqvist + + * gfortran.dg/hollerith_f95.f90: Add -fall-intrinsics. + * gfortran.dg/byte_1.f90: Likewise. + * gfortran.dg/dup_save_2.f90: Likewise. + 2006-05-27 Paul Thomas * gfortran.dg/associated_2.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/byte_1.f90 b/gcc/testsuite/gfortran.dg/byte_1.f90 index a9e239e78da..6cac4216f85 100644 --- a/gcc/testsuite/gfortran.dg/byte_1.f90 +++ b/gcc/testsuite/gfortran.dg/byte_1.f90 @@ -1,5 +1,5 @@ ! { dg-do compile } -! { dg-options "-std=f95" } +! { dg-options "-fall-intrinsics -std=f95" } program testbyte integer(1) :: ii = 7 call foo(ii) diff --git a/gcc/testsuite/gfortran.dg/dup_save_2.f90 b/gcc/testsuite/gfortran.dg/dup_save_2.f90 index 3a24bdc9c5e..a0d340ad6e8 100644 --- a/gcc/testsuite/gfortran.dg/dup_save_2.f90 +++ b/gcc/testsuite/gfortran.dg/dup_save_2.f90 @@ -1,5 +1,5 @@ ! { dg-do compile } -! { dg-options "-std=f95" } +! { dg-options "-fall-intrinsics -std=f95" } program save_2 implicit none integer i diff --git a/gcc/testsuite/gfortran.dg/hollerith_f95.f90 b/gcc/testsuite/gfortran.dg/hollerith_f95.f90 index fc70c51ae9b..1ba74036c26 100644 --- a/gcc/testsuite/gfortran.dg/hollerith_f95.f90 +++ b/gcc/testsuite/gfortran.dg/hollerith_f95.f90 @@ -1,5 +1,5 @@ ! { dg-do compile } -! { dg-options "-std=f95" } +! { dg-options "-fall-intrinsics -std=f95" } ! PR15966, PR18781 & PR16531 implicit none complex(kind=8) x(2) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index dab931eec79..ff19d5e694d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2006-05-27 Janne Blomqvist + + * intrinsics/abort.c (abort_): Remove. + 2006-05-26 Janne Blomqvist * configure.ac: Remove AC_FUNC_MMAP. diff --git a/libgfortran/intrinsics/abort.c b/libgfortran/intrinsics/abort.c index 50876cb1f94..6bf313ad364 100644 --- a/libgfortran/intrinsics/abort.c +++ b/libgfortran/intrinsics/abort.c @@ -1,5 +1,5 @@ /* Implementation of the ABORT intrinsic. - Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -38,15 +38,3 @@ void PREFIX(abort) (void) close_units (); abort (); } - -/* abort() is needed for the testsuite when linking with -std=f95. */ - -extern void abort_ (void); -export_proto_np(abort_); - -void -abort_ (void) -{ - close_units (); - abort (); -} -- 2.30.2