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! { dg-final { cleanup-tree-dump "original" } } 15 16