diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2010-08-17 20:08:05 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2010-08-17 20:08:05 +0200 |
| commit | 47b914698dd6a773392a881fc5afc9b8929b324c (patch) | |
| tree | a116d1b19f474b35987ce4e962e78b89ef101e20 /gcc | |
| parent | 35d3d688fc4b8adde86a554a5061f2a7d54df6a2 (diff) | |
| download | gcc-47b914698dd6a773392a881fc5afc9b8929b324c.zip gcc-47b914698dd6a773392a881fc5afc9b8929b324c.tar.gz gcc-47b914698dd6a773392a881fc5afc9b8929b324c.tar.bz2 | |
re PR fortran/45308 ([F2003] DATE_AND_TIME does _not_ blank-pad strings)
PR fortran/45308
* intrinsics/date_and_time.c (date_and_time): Pass __{zone,time,date}_len
instead of {ZONE,TIME,DATE}_LEN as second argument to fstrcpy. Drop
asserts. Adjust comment to the F2003 wording from the F95 wording.
* gfortran.dg/pr45308.f03: New test.
From-SVN: r163312
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr45308.f03 | 9 |
2 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a4c99b8..60c856d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-08-17 Jakub Jelinek <jakub@redhat.com> + + PR fortran/45308 + * gfortran.dg/pr45308.f03: New test. + 2010-08-17 Uros Bizjak <ubizjak@gmail.com> PR target/45296 diff --git a/gcc/testsuite/gfortran.dg/pr45308.f03 b/gcc/testsuite/gfortran.dg/pr45308.f03 new file mode 100644 index 0000000..ba96104 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr45308.f03 @@ -0,0 +1,9 @@ +! PR fortran/45308 +! { dg-do run } + character(len=36) :: date, time + date = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' + time = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' + call date_and_time (date, time) + if (index (date, 'a') /= 0 .or. index (time, 'a') /= 0) & + call abort +end |