https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84506
--- Comment #9 from Steve Kargl ---
On Thu, Feb 22, 2018 at 03:30:01AM +, jvdelisle at gcc dot gnu.org wrote:
>
> if (D.3772 < -some-reasonable-value || D.3772 > 2147483647)
> {
> inquire_parm.3.common.unit = -3;
> }
>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84506
Jerry DeLisle changed:
What|Removed |Added
Status|NEW |ASSIGNED
Assignee|unassigned a
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84506
--- Comment #7 from Jerry DeLisle ---
The problem is not related to the newunit functions or neunit alloc stuff.
In the call to st_inquire we are passing the correct value of -10 for the unit
number. However, the dump-original we have:
{
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84506
kargl at gcc dot gnu.org changed:
What|Removed |Added
CC||jvdelisle at gcc dot gnu.org
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84506
--- Comment #5 from Steve Kargl ---
On Thu, Feb 22, 2018 at 12:08:24AM +, sgk at troutmask dot
apl.washington.edu wrote:
> program TestInquire
>implicit none
>integer(8) :: iUnit
>integer(8) :: iPos
>open(newunit=iunit, file='
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84506
--- Comment #4 from Steve Kargl ---
The problem is related to UNIT.
program TestInquire
implicit none
integer(4) :: iUnit
integer(8) :: iPos
open(newunit=iunit, file='output.txt', access='stream', status='replace')
write(iUnit) 'T
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84506
--- Comment #3 from Steve Kargl ---
Upon closer inspection, gfortran's dump is correct
for both INTEGER and INTEGER(8) for
program TestInquire
integer :: iUnit, iPos
! integer(8) :: iUnit, iPos
open(newunit=iunit, file='output.txt', acce
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84506
kargl at gcc dot gnu.org changed:
What|Removed |Added
Priority|P3 |P4
Status|WAITING
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84506
Dominique d'Humieres changed:
What|Removed |Added
Status|UNCONFIRMED |WAITING
Last reconfirmed|
