13 lines · plain
1! Tests -fget-symbols-sources with COMMON.2program main3 integer :: x4 integer :: y5 common /x/ y6 x = y7end program8 9! RUN: %flang_fc1 -fget-symbols-sources %s 2>&1 | FileCheck %s10! CHECK:x:{{.*}}getsymbols04.f90, 3, 14-1511! CHECK:x:{{.*}}getsymbols04.f90, 5, 11-1212! CHECK:y:{{.*}}getsymbols04.f90, 4, 14-1513