16 lines · plain
1! Tests -fget-symbols-sources with COMMON.2program main3 integer :: x4 integer :: y5 block6 integer :: x7 x = y8 end block9 x = y10end program11 12! RUN: %flang_fc1 -fget-symbols-sources %s 2>&1 | FileCheck %s13! CHECK:x:{{.*}}getsymbols05.f90, 3, 14-1514! CHECK:x:{{.*}}getsymbols05.f90, 6, 16-1715! CHECK:y:{{.*}}getsymbols05.f90, 4, 14-1516