26 lines · plain
1! Tests -fget-symbols-sources finding all symbols in file.2module mm13 private :: f4contains5 pure subroutine s (x, y) bind(c)6 intent(in) :: x7 intent(inout) :: y8 contains9 pure subroutine ss10 end subroutine11 end subroutine12 recursive pure function f() result(x)13 real, allocatable :: x14 x = 1.015 end function16end module17 18! RUN: %flang_fc1 -fget-symbols-sources %s 2>&1 | FileCheck %s19! CHECK-COUNT-1:f:{{.*}}getsymbols01.f90, 12, 26-2720! CHECK-COUNT-1:mm1:{{.*}}getsymbols01.f90, 2, 8-1121! CHECK-COUNT-1:s:{{.*}}getsymbols01.f90, 5, 18-1922! CHECK-COUNT-1:ss:{{.*}}getsymbols01.f90, 9, 19-2123! CHECK-COUNT-1:x:{{.*}}getsymbols01.f90, 5, 21-2224! CHECK-COUNT-1:x:{{.*}}getsymbols01.f90, 13, 24-2525! CHECK-COUNT-1:y:{{.*}}getsymbols01.f90, 5, 24-2526