This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/24447] dimag_ undefined error with -std=f95
- From: Uttam Pawar <uttamp at us dot ibm dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Wed, 19 Oct 2005 15:33:33 -0700
- Subject: [Bug fortran/24447] dimag_ undefined error with -std=f95
Hi,
Does the following fix with the test case looks ok?
Thanks for the feedback. It has been bootstrapped ok, with no new
failures.
- Uttam
-----------------------------------------------------------------------
diff -urN gcc.orig/gcc/fortran/ChangeLog gcc.fix/gcc/fortran/ChangeLog
--- gcc.orig/gcc/fortran/ChangeLog 2005-10-19 15:23:26.000000000 -0700
+++ gcc.fix/gcc/fortran/ChangeLog 2005-10-19 15:24:37.000000000 -0700
@@ -1,3 +1,9 @@
+2005-10-19 Uttam Pawar <uttamp@us.ibm.com>
+
+ PR 22273
+ * intrinsic.c (add_functions): Change dimag from GFC_STD_GNU to
+ GFC_STD_F95.
+
2005-10-16 Erik Edelmann <erik.edelmann@iki.fi>
PR 22273
diff -urN gcc.orig/gcc/fortran/intrinsic.c
gcc.fix/gcc/fortran/intrinsic.c
--- gcc.orig/gcc/fortran/intrinsic.c 2005-10-19 15:23:39.000000000 -0700
+++ gcc.fix/gcc/fortran/intrinsic.c 2005-10-19 15:19:50.000000000 -0700
@@ -952,12 +952,12 @@
make_alias ("imag", GFC_STD_GNU);
make_alias ("imagpart", GFC_STD_GNU);
- add_sym_1 ("dimag", 1, 1, BT_REAL, dd, GFC_STD_GNU,
+ add_sym_1 ("dimag", 1, 1, BT_REAL, dd, GFC_STD_F95,
NULL, gfc_simplify_aimag, gfc_resolve_aimag,
z, BT_COMPLEX, dd, REQUIRED);
- make_generic ("aimag", GFC_ISYM_AIMAG, GFC_STD_F77);
+ make_generic ("aimag", GFC_ISYM_AIMAG, GFC_STD_F95);
add_sym_2 ("aint", 1, 1, BT_REAL, dr, GFC_STD_F77,
gfc_check_a_xkind, gfc_simplify_aint, gfc_resolve_aint,
diff -urN gcc.orig/gcc/testsuite/ChangeLog
gcc.fix/gcc/testsuite/ChangeLog
--- gcc.orig/gcc/testsuite/ChangeLog 2005-10-19 15:22:55.000000000 -0700
+++ gcc.fix/gcc/testsuite/ChangeLog 2005-10-19 15:20:01.000000000 -0700
@@ -1,3 +1,9 @@
+2005-10-19 Uttam Pawar <uttamp@us.ibm.com>
+
+ PR fortran24386
+ * gfortran.dg/double_complex_1.f90: Add new (dimag) intrinsic
+ function to test with -std=f95 switch.
+
2005-10-17 Nathan Sidwell <nathan@codesourcery.com>
PR c++/24386
diff -urN gcc.orig/gcc/testsuite/gfortran.dg/double_complex_1.f90
gcc.fix/gcc/testsuite/gfortran.dg/double_complex_1.f90
--- gcc.orig/gcc/testsuite/gfortran.dg/double_complex_1.f90 2005-10-19
15:22:44.000000000 -0700
+++ gcc.fix/gcc/testsuite/gfortran.dg/double_complex_1.f90 2005-10-19
15:20:17.000000000 -0700
@@ -8,6 +8,7 @@
complex(kind=kind(0d0)) :: c
print *, abs(c)
print *, aimag(c)
+ print *, dimag(c)
print *, conjg(c)
print *, cos(c)
print *, exp(c)