Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dec_format_empty_item_2.f @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fdec-blank-format-item" } ! ! Test blank/empty format items in format string ! ! Test case contributed by Jim MacArthur <jim.macarthur@codethink.co.uk> ! Modified by Mark Eggleston <mark.eggleston@codethink.com> ! PROGRAM blank_format_items INTEGER A/0/ OPEN(1, status="scratch") WRITE(1, 10) 100 REWIND(1) READ(1, 10) A IF (a.NE.100) STOP 1 PRINT 10, A 10 FORMAT( I5,) END