| ! { 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") call abort | |
| write(astring, 20) i, i | |
| 20 format('i =',I2:' this should print',I2) | |
| if (astring.ne."i = 1 this should print 1") call abort | |
| END PROGRAM test |