intrinsic.c (add_functions): Undo change; mark float and sngl as STD_F77.

2007-12-17  Tobias Burnus  <burnus@net-b.de>

        * intrinsic.c (add_functions): Undo change; mark float and
        sngl as STD_F77.
        * intrinsic.texi (FLOAT, SNGL): Change standard to F77 and later.
        * gfortran.texi (BOZ): Make note about FLOAT etc. clearer.

2007-12-17  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/initialization_16.f90: Update as FLOAT/SNGL are
        part of Fortran 77/95/2003.

From-SVN: r131007

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5f6e1dc9b5bbbae195c2f0ee750baef4263bb56a..fe8f6092fcb74347c13719c6206a967791576f79 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+2007-12-17  Tobias Burnus  <burnus@net-b.de>
+
+       * intrinsic.c (add_functions): Undo change; mark float and
+       sngl as STD_F77.
+       * intrinsic.texi (FLOAT, SNGL): Change standard to F77 and later.
+       * gfortran.texi (BOZ): Make note about FLOAT etc. clearer.
+
 2007-12-16  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/34495

diff --git a/gcc/fortran/gfortran.texi b/gcc/fortran/gfortran.texi
index 84795fb016d3556abcaa3ffab2e0d2462294c152..9fda225a8cf0ac7ae6ecdf243c731b253a46486f 100644 (file)
--- a/gcc/fortran/gfortran.texi
+++ b/gcc/fortran/gfortran.texi
@@ -1101,8 +1101,8 @@ are also allowed as argument of @code{REAL}, @code{DBLE}, @code{INT}
 and @code{CMPLX}; the result is the same as if the integer BOZ
 literal had been converted by @code{TRANSFER} to, respectively,
 @code{real}, @code{double precision}, @code{integer} or @code{complex}.
-The GNU Fortran intrinsic procedure @code{FLOAT}, @code{DFLOAT},
-@code{COMPLEX} and @code{DCMPLX} are treated alike.
+As GNU Fortran extension the intrinsic procedures @code{FLOAT},
+@code{DFLOAT}, @code{COMPLEX} and @code{DCMPLX} are treated alike.
 
 As an extension, GNU Fortran allows hexadecimal BOZ literal constants to
 be specified using the @code{X} prefix, in addition to the standard

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index aaaa620319d1fd09fb1142f200d7a7ffaceb0447..039e2288cd6d03f6cc58937a9cbf86eeb3d8fe4d 100644 (file)
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -2047,11 +2047,11 @@ add_functions (void)
             gfc_check_fn_c, gfc_simplify_realpart, gfc_resolve_realpart,
             a, BT_UNKNOWN, dr, REQUIRED);
 
-  add_sym_1 ("float", GFC_ISYM_REAL, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_GNU,
+  add_sym_1 ("float", GFC_ISYM_REAL, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_F77,
             gfc_check_i, gfc_simplify_float, NULL,
             a, BT_INTEGER, di, REQUIRED);
 
-  add_sym_1 ("sngl", GFC_ISYM_REAL, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_GNU,
+  add_sym_1 ("sngl", GFC_ISYM_REAL, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_F77,
             NULL, gfc_simplify_sngl, NULL,
             a, BT_REAL, dd, REQUIRED);
 

diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index dce838ddf53f4d2a3001efe95d07f394d17d7a7a..f31ca25a11c5ae4d9f843c2ac15a7a638ef0b0a8 100644 (file)
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -3850,7 +3850,7 @@ end program test_fdate
 @code{FLOAT(I)} converts the integer @var{I} to a default real value.
 
 @item @emph{Standard}:
-GNU extension
+F77 and later
 
 @item @emph{Class}:
 Elemental function
@@ -9700,7 +9700,7 @@ to a default real value. This is an archaic form of @code{REAL}
 that is specific to one type for @var{A}.
 
 @item @emph{Standard}:
-GNU extension
+F77 and later
 
 @item @emph{Class}:
 Elemental function

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bd18305702cab0801060503831fbc25ffe807392..62b67a83d17644cfee79c47da5faee8f26b0c630 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-17  Tobias Burnus  <burnus@net-b.de>
+
+       * gfortran.dg/initialization_16.f90: Update as FLOAT/SNGL are
+       part of Fortran 77/95/2003.
+
 2007-12-17  Dorit Nuzman  <dorit@il.ibm.com>
 
        PR tree-optimization/34445

diff --git a/gcc/testsuite/gfortran.dg/initialization_16.f90 b/gcc/testsuite/gfortran.dg/initialization_16.f90
index 185099a92e8841e18958ead7aefcdcc5167da210..a717eeefcb735ac54497cf24f48b3a018200b629 100644 (file)
--- a/gcc/testsuite/gfortran.dg/initialization_16.f90
+++ b/gcc/testsuite/gfortran.dg/initialization_16.f90
@@ -9,7 +9,7 @@ program main
   implicit none
   real, parameter :: r1 = real(33)    ! { dg-error "Fortran 2003: Function 'real' as initialization expression" } 
   real, parameter :: r2 = dble(33)    ! { dg-error "Fortran 2003: Function 'dble' as initialization expression" }
-  real, parameter :: r4 = cmplx(33,33)! { dg-error "Fortran 2003: Function 'cmplx' as initialization expression" }
-  print *, sngl(1.0d0) ! { dg-error "not included in the selected standard" }
-  print *, float(1.0)  ! { dg-error "not included in the selected standard" }
+  complex, parameter :: z = cmplx(33,33)! { dg-error "Fortran 2003: Function 'cmplx' as initialization expression" }
+  real, parameter :: r4 = sngl(3.d0)  ! { dg-error "Fortran 2003: Function 'sngl' as initialization expression" }
+  real, parameter :: r5 = float(33)   ! { dg-error "Fortran 2003: Function 'float' as initialization expression" }
 end program main