mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
14 lines
454 B
Fortran
14 lines
454 B
Fortran
! { dg-do run }
|
|
! PR31395 Colon edit descriptor is ignored.
|
|
! Test case derived from PR. Prepared by Jerry DeLisle
|
|
! <jvdelisle@gcc.gnu.org>
|
|
PROGRAM test
|
|
INTEGER :: i = 1
|
|
character(30) :: astring
|
|
WRITE(astring, 10) i
|
|
10 FORMAT('i =',I2:' this should not print')
|
|
if (astring.ne."i = 1") STOP 1
|
|
write(astring, 20) i, i
|
|
20 format('i =',I2:' this should print',I2)
|
|
if (astring.ne."i = 1 this should print 1") STOP 2
|
|
END PROGRAM test |