[Bug fortran/23516] New: IMAG is not a generic function when implicit none is declared

[Bug fortran/23516] New: IMAG is not a generic function when implicit none is declared

[federico dot carminati at cern dot ch]

The following code does not compile

      program bug
      implicit none
      double complex blop
      double precision blopr
      blopr=imag(blop)
      blopr=sin(blop)
      end

removing "implicit none" will let the code to compile. The compiler accepts sin as a generic function but 
not imag.

-- 
           Summary: IMAG is not a generic function when implicit none is
                    declared
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: federico dot carminati at cern dot ch
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: darwin Kernel Version 7.8.0; root:xnu/xnu-
                    517.11.1.obj~1/RELEASE


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23516

[Bug fortran/23516] IMAG is not a generic function when implicit none is declared

[kargl at gcc dot gnu dot org]

------- Additional Comments From kargl at gcc dot gnu dot org  2005-08-22 16:47 -------
IMAG() is neither a generic intrinsic procedure nor a specific
intrinsic procedure.  You want AIMAG() or you need to explicitly
declare IMAG() and provide a function.

-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23516

[Bug fortran/23516] IMAG is not a generic function when implicit none is declared

[fxcoudert at gcc dot gnu dot org]

------- Additional Comments From fxcoudert at gcc dot gnu dot org  2005-08-30 15:02 -------
Well, this is not standard Fortran but g77 accepts it (and all the compilers I
can find accept it). So, I think we should add a generic IMAG for GFC_STD_GNU.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   GCC host triplet|darwin Kernel Version 7.8.0;|
                   |root:xnu/xnu-               |
                   |517.11.1.obj~1/RELEASE      |
   Last reconfirmed|0000-00-00 00:00:00         |2005-08-30 15:02:31
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23516

[Bug fortran/23516] IMAG is not a generic function when implicit none is declared

[kargl at gcc dot gnu dot org]

------- Additional Comments From kargl at gcc dot gnu dot org  2005-09-16 18:46 -------
http://gcc.gnu.org/ml/gcc-patches/2005-09/msg01004.html

-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23516

[Bug fortran/23516] IMAG is not a generic function when implicit none is declared

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2005-09-22 19:00 -------
Subject: Bug 23516

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	kargl@gcc.gnu.org	2005-09-22 19:00:25

Modified files:
	gcc/fortran    : ChangeLog intrinsic.c intrinsic.h 
	                 intrinsic.texi iresolve.c simplify.c 

Log message:
	PR fortran/23516
	* intrinsic.c (add_function): Add IMAG, IMAGPART, and REALPART
	intrinsics.
	* intrinsic.h: Prototypes for gfc_simplify_realpart and
	gfc_resolve_realpart.
	* intrinsic.texi: Document intrinsic procedures.
	* simplify.c (gfc_simplify_realpart): New function.
	* irseolve.c (gfc_resolve_realpart): New function.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.564&r2=1.565
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/intrinsic.c.diff?cvsroot=gcc&r1=1.54&r2=1.55
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/intrinsic.h.diff?cvsroot=gcc&r1=1.32&r2=1.33
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/intrinsic.texi.diff?cvsroot=gcc&r1=1.16&r2=1.17
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/iresolve.c.diff?cvsroot=gcc&r1=1.39&r2=1.40
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/simplify.c.diff?cvsroot=gcc&r1=1.31&r2=1.32



-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23516

[Bug fortran/23516] IMAG is not a generic function when implicit none is declared

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2005-09-22 19:05 -------
Subject: Bug 23516

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	kargl@gcc.gnu.org	2005-09-22 19:04:14

Modified files:
	gcc/testsuite  : ChangeLog 
Added files:
	gcc/testsuite/gfortran.dg: imag_1.f imag_2.f 

Log message:
	PR fortran/23516
	* gfortran.dg/imag_1.f: New test.
	* gfortran.dg/imag_2.f: Ditto.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.6097&r2=1.6098
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/imag_1.f.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/imag_2.f.diff?cvsroot=gcc&r1=NONE&r2=1.1



-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23516

[Bug fortran/23516] IMAG is not a generic function when implicit none is declared

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2005-09-22 20:28 -------
Fixed in 4.1.0.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |FIXED
   Target Milestone|---                         |4.1.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23516