[Bug fortran/60462] get_command returns more than it should

2014-03-08 Thread burnus at gcc dot gnu.org 
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60462

Tobias Burnus burnus at gcc dot gnu.org changed:

   What|Removed |Added

 Status|UNCONFIRMED |WAITING
   Last reconfirmed||2014-03-08
 CC||burnus at gcc dot gnu.org
 Ever confirmed|0   |1

--- Comment #3 from Tobias Burnus burnus at gcc dot gnu.org ---
Change status to WAITING.

At least the following information is required:
  - Operating system/Target
  - GCC version, e.g. gfortran -v
  - An example program

Does it work with the code Steve posted in comment 1?

[Bug fortran/60462] get_command returns more than it should

2014-03-08 Thread fkrogh#gcc at mathalacarte dot com 
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60462

Fred Krogh fkrogh#gcc at mathalacarte dot com changed:

   What|Removed |Added

 Status|WAITING |RESOLVED
 Resolution|--- |FIXED

--- Comment #4 from Fred Krogh fkrogh#gcc at mathalacarte dot com ---
My apologies for a very bad bug report.  I was running in the debugger, and
started the run with
run ./tapt -u ./mps afiro

I should have started it with
run -u ./mps afiro

Doing things the correct way still puts in the the full path for the command,
but I don't think there is anything here that should be called a bug.
Sorry.

[Bug fortran/60462] get_command returns more than it should

2014-03-07 Thread fkrogh#gcc at mathalacarte dot com 
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60462

--- Comment #1 from Fred Krogh fkrogh#gcc at mathalacarte dot com ---
With this command line

./tapt -u ./mps afiro

it gives

/home/m/math77/lin/cons/anypoint/tapt ./tapt -u ./mps afiro

The standard makes no mention of providing the first part of what is here.
That first part is the full path for the command.

[Bug fortran/60462] get_command returns more than it should

2014-03-07 Thread kargl at gcc dot gnu.org 
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60462

kargl at gcc dot gnu.org changed:

   What|Removed |Added

 CC||kargl at gcc dot gnu.org

--- Comment #2 from kargl at gcc dot gnu.org ---
There's an incredible amount of missing detail.

% cat foo.f90
program foo
   implicit none
   character(len=80) s
   call get_command(s)
   print '(A)', trim(s)
end program foo
% gfc4x -o tapt foo.f90
% ./tapt -u ./mps afiro
./tapt -u ./mps afiro
% gfc48 -o tapt foo.f90
% ./tapt -u ./mps afiro
./tapt -u ./mps afiro
% gfc47 -o tapt foo.f90
% ./tapt -u ./mps afiro
./tapt -u ./mps afiro

Works as expected on 4.9.0, 4.8.3, and 4.7.4.