summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/assign.f90
blob: 2d9e497fbe999f2c8ffaf26c416a46fe390a5a5a (plain)
1
2
3
4
5
6
7
8
! { dg-do run }
! Program to test ASSIGNing a label to common variable. PR18827.
      program test
      integer i
      common i
      assign 2000 to i  ! { dg-warning "Deleted feature: ASSIGN statement" }
2000  continue
      end