flang/test/Semantics/getsymbols05.f90

   1 ! Tests -fget-symbols-sources with COMMON.
   2 program main
   3   integer :: x
   4   integer :: y
   5   block
   6     integer :: x
   7     x = y
   8   end block
   9   x = y
  10 end program
  11
  12 ! RUN: %flang_fc1 -fget-symbols-sources %s 2>&1 | FileCheck %s
  13 ! CHECK:x:{{.*}}getsymbols05.f90, 3, 14-15
  14 ! CHECK:x:{{.*}}getsymbols05.f90, 6, 16-17
  15 ! CHECK:y:{{.*}}getsymbols05.f90, 4, 14-15