mirror of git://gcc.gnu.org/git/gcc.git
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
|
@ -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>
|
2008-08-29 Michael Meissner <gnu@the-meissners.org>
|
||||||
|
|
||||||
* gcc.target/i386/sse-22.c: Change #pragma GCC option to #pragma
|
* gcc.target/i386/sse-22.c: Change #pragma GCC option to #pragma
|
||||||
|
|
|
@ -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…
Reference in New Issue