re PR fortran/36895 (Namelist writting to internal files: Control characters wrong?)
2008-08-30 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/36895 * gfortran.dg/namelist_53.f90: New test. From-SVN: r139814
This commit is contained in:
parent
8c8627c472
commit
0006def8b8
2 changed files with 14 additions and 0 deletions
|
@ -1,3 +1,8 @@
|
|||
2008-08-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||
|
||||
PR libfortran/36895
|
||||
* gfortran.dg/namelist_53.f90: New test.
|
||||
|
||||
2008-08-29 Michael Meissner <gnu@the-meissners.org>
|
||||
|
||||
* gcc.target/i386/sse-22.c: Change #pragma GCC option to #pragma
|
||||
|
|
9
gcc/testsuite/gfortran.dg/namelist_53.f90
Normal file
9
gcc/testsuite/gfortran.dg/namelist_53.f90
Normal file
|
@ -0,0 +1,9 @@
|
|||
! { dg-do run }
|
||||
! PR36895 Namelist writing to internal files
|
||||
character(30) :: line
|
||||
namelist /stuff/ n
|
||||
n = 123
|
||||
line = ""
|
||||
write(line,nml=stuff)
|
||||
if (line.ne."&STUFF N= 123, /") call abort
|
||||
end
|
Loading…
Add table
Reference in a new issue