1! { dg-do compile }
2! Option passed to avoid excess errors from obsolete warning
3! { dg-options "-w" }
4! PR17423
5 program testit
6c
7 assign 12 to i
8 write(*, i)
9 0012 format (" **** ASSIGN FORMAT NUMBER TO INTEGER VARIABLE ****" )
10 end
11
12