1! { dg-do compile }
2! { dg-options "-fdump-tree-original-lineno" }
3!
4! PR fortran/40660
5
6PROGRAM test
7 INTEGER, DIMENSION(3) :: a1,a2
8 a1 = 1
9 PRINT*, a1
10 a2 = 2
11end program test
12
13! { dg-final { scan-tree-dump-times ": 3\] _gfortran" 0 "original" } }
14
15