[Bug fortran/28237] print call()

2006-07-06 Thread pault at gcc dot gnu dot org


-- 

pault at gcc dot gnu dot org changed:

   What|Removed |Added

 AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
   |dot org |
 Status|NEW |ASSIGNED


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



[Bug fortran/28237] print call()

2006-07-06 Thread patchapp at dberlin dot org


--- Comment #4 from patchapp at dberlin dot org  2006-07-06 16:20 ---
Subject: Bug number PR28237

A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is
http://gcc.gnu.org/ml/gcc-patches/2006-07/msg00245.html


-- 


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



[Bug fortran/28237] print call()

2006-07-06 Thread pault at gcc dot gnu dot org


--- Comment #5 from pault at gcc dot gnu dot org  2006-07-07 04:47 ---
Subject: Bug 28237

Author: pault
Date: Fri Jul  7 04:47:24 2006
New Revision: 115246

URL: http://gcc.gnu.org/viewcvs?root=gccview=revrev=115246
Log:
2006-07-07  Paul Thomas  [EMAIL PROTECTED]

PR fortran/28237
PR fortran/23420
* io.c (resolve_tag): Any integer that is not an assigned
variable is an error.

2006-07-07  Paul Thomas  [EMAIL PROTECTED]

PR fortran/28237
PR fortran/23420
* gfortran.dg/print_fmt_5.f90: New test.

Added:
trunk/gcc/testsuite/gfortran.dg/print_fmt_5.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/io.c
trunk/gcc/testsuite/ChangeLog


-- 


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



[Bug fortran/28237] print call()

2006-07-06 Thread pault at gcc dot gnu dot org


--- Comment #6 from pault at gcc dot gnu dot org  2006-07-07 05:09 ---
Subject: Bug 28237

Author: pault
Date: Fri Jul  7 05:08:57 2006
New Revision: 115247

URL: http://gcc.gnu.org/viewcvs?root=gccview=revrev=115247
Log:
2006-07-07  Paul Thomas  [EMAIL PROTECTED]

PR fortran/28237
PR fortran/23420
* io.c (resolve_tag): Any integer that is not an assigned
variable is an error.

2006-07-07  Paul Thomas  [EMAIL PROTECTED]

PR fortran/28237
PR fortran/23420
* gfortran.dg/print_fmt_5.f90: New test.

Added:
branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/print_fmt_5.f90
Modified:
branches/gcc-4_1-branch/gcc/fortran/ChangeLog
branches/gcc-4_1-branch/gcc/fortran/io.c
branches/gcc-4_1-branch/gcc/testsuite/ChangeLog


-- 


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



[Bug fortran/28237] print call()

2006-07-06 Thread pault at gcc dot gnu dot org


--- Comment #7 from pault at gcc dot gnu dot org  2006-07-07 05:16 ---
Fixedon trunk and 4.1

Paul


-- 

pault at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|ASSIGNED|RESOLVED
 Resolution||FIXED


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



[Bug fortran/28237] print call()

2006-07-05 Thread paul dot richard dot thomas at cea dot fr


--- Comment #3 from paul dot richard dot thomas at cea dot fr  2006-07-05 
09:47 ---
Created an attachment (id=11825)
 -- (http://gcc.gnu.org/bugzilla/attachment.cgi?id=11825action=view)
Fix for PR28237 and the last bit of PR2320.

I have not had time to do a full regtest; just gfortran.dg/print*, which
includes the following testcase (print_fmt_5.f90):

Paul

! { dg-do compile }
! print_fmt_5.f90
! Test of fix for PR28237 and the last bit of PR2320.  See
! below for the description of the problem.
!
program r
  character(12) :: for = '(i5)', left = '(i', right = ')'
  integer :: i, j
  integer :: h(4) 
= (/1h(, 1hi, 1h5, 1h)/)! { dg-warning HOLLERITH|Hollerith }
  namelist /mynml/ i
  i = fact ()
!
! All these are legal things to do; note however the warnings
! for extensions or obsolete features!
!
  print *, fact()
  print 100, fact()
  print '(i5)', fact()
  print mynml  ! { dg-warning is an extension }
  do i = 1, 5
print trim(left)//char(iachar('0') + i)//trim(right), i
  end do
  assign 100 to i  ! { dg-warning ASSIGN statement }
  print i, fact()  ! { dg-warning ASSIGNED variable }
  print h, fact () ! { dg-warning Non-character in FORMAT }
!
! These are not and caused a segfault in trans-io:560
!
! PR28237
  print fact() ! { dg-error not an ASSIGNED variable }
! original PR23420
  print precision(1.2_8) ! { dg-error type default CHARACTER }
! PR23420 points 4 and 5
  print j + j  ! { dg-error not an ASSIGNED variable }
! An extension of the above, encountered in writing the fix
  write (*, fact())! { dg-error not an ASSIGNED variable }
 100 format (i5)
contains
  function fact()
integer :: fact
fact = 1
  end function fact
end


-- 


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



[Bug fortran/28237] print call()

2006-07-03 Thread pinskia at gcc dot gnu dot org


--- Comment #2 from pinskia at gcc dot gnu dot org  2006-07-03 18:28 ---
This has nothing to do with recursive functions, reduced testcase:
program r
implicit none
print fact()
stop
contains
function fact() result(nfact)
implicit none
integer :: nfact
end function fact
end


-- 

pinskia at gcc dot gnu dot org changed:

   What|Removed |Added

Summary|recursive fuction causes ICE|print call()


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