diff options
author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-24 18:58:36 +0000 |
---|---|---|
committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-24 18:58:36 +0000 |
commit | 6a41ab4e2f1fe8559c5fc58fa8b71add52d527d5 (patch) | |
tree | 9a1cb5c87c35a1add0a9feaef2e512e67cc60530 /gcc/testsuite/gfortran.dg | |
parent | c704db51e487a466c5974e4c6d29125ee8f9432c (diff) | |
download | gcc-6a41ab4e2f1fe8559c5fc58fa8b71add52d527d5.tar.gz |
2007-06-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32446
* gfortran.dg/fmt_huge.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125986 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
-rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_huge.f90 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/fmt_huge.f90 b/gcc/testsuite/gfortran.dg/fmt_huge.f90 new file mode 100644 index 00000000000..43c4e2ac273 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_huge.f90 @@ -0,0 +1,6 @@ +! { dg-do run } +! PR32446 printing big numbers in F0.1 format. +! This segfaulted before the patch. + open (10, status="scratch") + write (10,'(F0.1)') huge(1.0) + END |