16 lines
304 B
Fortran
16 lines
304 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fdump-tree-original-lineno" }
|
|
!
|
|
! PR fortran/40660
|
|
|
|
PROGRAM test
|
|
INTEGER, DIMENSION(3) :: a1,a2
|
|
a1 = 1
|
|
PRINT*, a1
|
|
a2 = 2
|
|
end program test
|
|
|
|
! { dg-final { scan-tree-dump-times ": 3\] _gfortran" 0 "original" } }
|
|
! { dg-final { cleanup-tree-dump "original" } }
|
|
|