[Bug fortran/29441] New: mathematical functions and constant expressions

[Bug fortran/29441] New: mathematical functions and constant expressions

[kamaraju at gmail dot com]

Hi
  conside the following code

$cat const_math_func.f90
program printpi
  ! This program is not standard complaint
  real, parameter :: pi = 4.0*atan(1.0)
  write(*,*) pi
end program

This code is not Fortran 95 standard compliant (
http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/11eeb6ec2896183c/95d5ab27eb5e94e9#95d5ab27eb5e94e9
). But still gfortran does not give any errors/warning when compiling this
code.

$gfortran -Wall -std=f95 const_math_func.f90

$./a.out
   3.141593

$gfortran -v
Using built-in specs.
Target: i486-linux-gnu
Configured with: ../src/configure -v
--enable-languages=c,c++,fortran,objc,obj-c++,treelang --prefix=/usr
--enable-shared --with-system-zlib --libexecdir=/usr/lib
--without-included-gettext --enable-threads=posix --enable-nls
--program-suffix=-4.1 --enable-__cxa_atexit --enable-clocale=gnu
--enable-libstdcxx-debug --enable-mpfr --with-tune=i686
--enable-checking=release i486-linux-gnu
Thread model: posix
gcc version 4.1.2 20060901 (prerelease) (Debian 4.1.1-13)


-- 
           Summary: mathematical functions and constant expressions
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: kamaraju at gmail dot com


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

[Bug fortran/29441] non-constant parameter (constant) accepted

[pinskia at gcc dot gnu dot org]

------- Comment #1 from pinskia at gcc dot gnu dot org  2006-10-12 15:10 -------
Confirmed.


-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
      Known to fail|                            |4.2.0
   Last reconfirmed|0000-00-00 00:00:00         |2006-10-12 15:10:40
               date|                            |
            Summary|mathematical functions and  |non-constant parameter
                   |constant expressions        |(constant) accepted
            Version|unknown                     |4.1.2


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

[Bug fortran/29441] non-constant parameter (constant) accepted

[pinskia at gcc dot gnu dot org]

------- Comment #2 from pinskia at gcc dot gnu dot org  2006-10-12 15:12 -------
Actually adding -pedantic, and this is rejected:
 In file t.f90:3

  real, parameter :: pi = 4.0*atan(1.0)
                                 1
Error: Extension: Evaluation of nonstandard initialization expression at (1)

And has since 4.0.3:
[pinskia@celery ~]$ ~/gcc-4.0/bin/gfortran t.f90 -std=f95 -pedantic-errors
 In file t.f90:3

  real, parameter :: pi = 4.0*atan(1.0)
                                 1
Error: Extension: Evaluation of nonstandard initialization expression at (1)
[pinskia@celery ~]$ ~/gcc-4.1/bin/gfortran t.f90 -std=f95 -pedantic-errors
 In file t.f90:3

  real, parameter :: pi = 4.0*atan(1.0)
                                 1
Error: Extension: Evaluation of nonstandard initialization expression at (1)


-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
      Known to fail|4.2.0                       |


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

[Bug fortran/29441] non-constant parameter (constant) accepted

[tobi at gcc dot gnu dot org]

------- Comment #3 from tobi at gcc dot gnu dot org  2006-11-22 15:01 -------
I have a one-line patch for this.


-- 

tobi at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |tobi at gcc dot gnu dot org
                   |dot org                     |
           Severity|normal                      |enhancement
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2006-10-12 15:10:40         |2006-11-22 15:01:27
               date|                            |


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

[Bug fortran/29441] non-constant parameter (constant) accepted

[tobi at gcc dot gnu dot org]

------- Comment #4 from tobi at gcc dot gnu dot org  2006-11-22 22:09 -------
Subject: Bug 29441

Author: tobi
Date: Wed Nov 22 22:09:14 2006
New Revision: 119101

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=119101
Log:
fortran/
        PR fortran/29441
        * intrinsic.c (gfc_intrinsic_func_interface): Always check if
        intrinsic is allowed in initialization expression.
testsuite/
        PR fortran/29441
        * gfortran.dg/initialization_4.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/initialization_4.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/intrinsic.c
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/29441] [4.1/4.2 only] non-constant parameter (constant) accepted

[burnus at gcc dot gnu dot org]

------- Comment #5 from burnus at gcc dot gnu dot org  2007-02-28 20:57 -------
> Author: tobi
> Date: Wed Nov 22 22:09:14 2006
>    trunk/gcc/fortran/ChangeLog

What is the status on this? Will this be backported to 4.2 and 4.1?


-- 


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

[Bug fortran/29441] [4.1/4.2 only] non-constant parameter (constant) accepted

[tobi at gcc dot gnu dot org]

------- Comment #6 from tobi at gcc dot gnu dot org  2007-03-01 13:24 -------
Consider it done.  Thanks for the reminder.  I should click on "My Bugs" more
often.


-- 


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

[Bug fortran/29441] [4.1/4.2 only] non-constant parameter (constant) accepted

[tobi at gcc dot gnu dot org]

------- Comment #7 from tobi at gcc dot gnu dot org  2007-03-01 15:52 -------
Subject: Bug 29441

Author: tobi
Date: Thu Mar  1 15:52:28 2007
New Revision: 122431

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=122431
Log:
fortran/
Backport from trunk
PR fortran/29441
* intrinsic.c (gfc_intrinsic_func_interface): Always check if
intrinsic is allowed in initialization expression.
testsuite/
* gfortran.dg/initialization_4.f90: New test.

Added:
    branches/gcc-4_2-branch/gcc/testsuite/gfortran.dg/initialization_4.f90
      - copied unchanged from r119101,
trunk/gcc/testsuite/gfortran.dg/initialization_4.f90
Modified:
    branches/gcc-4_2-branch/gcc/fortran/ChangeLog
    branches/gcc-4_2-branch/gcc/fortran/intrinsic.c
    branches/gcc-4_2-branch/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/29441] [4.1/4.2 only] non-constant parameter (constant) accepted

[tobi at gcc dot gnu dot org]

------- Comment #8 from tobi at gcc dot gnu dot org  2007-03-01 16:40 -------
Subject: Bug 29441

Author: tobi
Date: Thu Mar  1 16:40:34 2007
New Revision: 122433

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=122433
Log:
fortran/
Backport from trunk
PR fortran/29441
* intrinsic.c (gfc_intrinsic_func_interface): Always check if
intrinsic is allowed in initialization expression.
testsuite/
Backport from trunk
PR fortran/29441
* gfortran.dg/initialization_4.f90: New test.

Added:
    branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/initialization_4.f90
      - copied unchanged from r119101,
trunk/gcc/testsuite/gfortran.dg/initialization_4.f90
Modified:
    branches/gcc-4_1-branch/gcc/fortran/ChangeLog
    branches/gcc-4_1-branch/gcc/fortran/intrinsic.c
    branches/gcc-4_1-branch/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/29441] [4.1/4.2 only] non-constant parameter (constant) accepted

[tobi at gcc dot gnu dot org]

------- Comment #9 from tobi at gcc dot gnu dot org  2007-03-01 16:43 -------
Fixed on all release branches.


-- 

tobi at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |4.1.3


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

[Bug fortran/29441] [4.1/4.2 only] non-constant parameter (constant) accepted

[burnus at gcc dot gnu dot org]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 620 bytes --]



------- Comment #10 from burnus at gcc dot gnu dot org  2007-03-05 09:29 -------
(In reply to comment #9) Tobias Schlüter wrote:
> Fixed on all release branches.

This sounds as if should have been marked as FIXED.
Did so. Please reopen if it should not have been closed.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


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

[Bug fortran/29441] [4.1/4.2 only] non-constant parameter (constant) accepted

[tobi at gcc dot gnu dot org]

------- Comment #11 from tobi at gcc dot gnu dot org  2007-03-05 13:14 -------
Thanks.


-- 


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