Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dec_format_empty_item_1.f @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fdec" } ! ! 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