mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-25 19:24:40 +08:00
Code Issues Packages Projects Releases Wiki Activity

libgfortran ChangeLog:

Browse Source 
2006-05-27  Janne Blomqvist  <jb@gcc.gnu.org>

	* intrinsics/abort.c (abort_): Remove.

testsuite ChangeLog:

2006-05-27  Janne Blomqvist  <jb@gcc.gnu.org>

	* gfortran.dg/hollerith_f95.f90: Add -fall-intrinsics.
	* gfortran.dg/byte_1.f90: Likewise.
	* gfortran.dg/dup_save_2.f90: Likewise.

From-SVN: r114150
This commit is contained in:
Janne Blomqvist 2006-05-27 10:11:29 +03:00
parent f5b854f230
commit 647e11bb64
6 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2006-05-27 Janne Blomqvist <jb@gcc.gnu.org>
* 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 <pault@gcc.gnu.org>
* gfortran.dg/associated_2.f90: New test.

2
gcc/testsuite/gfortran.dg/byte_1.f90
View File

@ -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)

2
gcc/testsuite/gfortran.dg/dup_save_2.f90
View File

@ -1,5 +1,5 @@
! { dg-do compile }
! { dg-options "-std=f95" }
! { dg-options "-fall-intrinsics -std=f95" }
program save_2
implicit none
integer i

2
gcc/testsuite/gfortran.dg/hollerith_f95.f90
View File

@ -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)

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
2006-05-27 Janne Blomqvist <jb@gcc.gnu.org>
* intrinsics/abort.c (abort_): Remove.
2006-05-26 Janne Blomqvist <jb@gcc.gnu.org>
* configure.ac: Remove AC_FUNC_MMAP.

14
libgfortran/intrinsics/abort.c
View File

@ -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 ();
}