Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/fmt_l0.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! { dg-options "-std=gnu -pedantic" }
kono
parents:
diff changeset
3 ! Test the GNU extension of a L format descriptor without width
kono
parents:
diff changeset
4 ! PR libfortran/54679
kono
parents:
diff changeset
5 program main
kono
parents:
diff changeset
6 implicit none
kono
parents:
diff changeset
7 character(len=20) :: str
kono
parents:
diff changeset
8 character(len=60) :: format2 = "(2(1x,l0,1x))"
kono
parents:
diff changeset
9 write(str,format2)
kono
parents:
diff changeset
10 end program main
kono
parents:
diff changeset
11 ! { dg-output "At line 9 of file.*" }
kono
parents:
diff changeset
12 ! { dg-output "Fortran runtime warning: Zero width after L descriptor(\n|\r\n|\r)" }