summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/assign_4.f
blob: 3277f7c74a2413670624727d75dbc8495c26a28d (plain)
1
2
3
4
5
6
7
8
9
10
11
! { dg-do compile }
! Option passed to avoid excess errors from obsolete warning
! { dg-options "-w" }
! PR17423
      program testit
c
      assign 12 to i
      write(*, i) 
 0012 format (" **** ASSIGN FORMAT NUMBER TO INTEGER VARIABLE ****" )
      end