Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/pr20086.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do run } |
2 ! { dg-options "-std=legacy" } | |
3 ! | |
4 ! PR 20086 - Missing characters in output with hollerith strings | |
5 implicit none | |
6 character*80 line | |
7 write(line,2070) | |
131 | 8 if (line.ne.' stiffness reformed for this high step')STOP 1 |
111 | 9 write(line,2090) |
131 | 10 if (line.ne.' stiffness reformed for hello hello')STOP 2 |
111 | 11 stop |
12 | |
13 2070 format (2x,37hstiffness reformed for this high step) | |
14 2090 format (2x,34hstiffness reformed for hello hello) | |
15 | |
16 end |