forked from OSchip/llvm-project
16 lines
410 B
Fortran
16 lines
410 B
Fortran
! Tests -fget-definition with INCLUDE
|
|
!RUN: %S/test_any.sh %s %flang %t
|
|
INCLUDE "Inputs/getdefinition03-b.f90"
|
|
|
|
program main
|
|
use m3
|
|
integer :: x
|
|
x = f
|
|
end program
|
|
|
|
! EXEC: ${F18} -fget-definition 8 6 7 -fparse-only %s > %t;
|
|
! EXEC: ${F18} -fget-definition 8 2 3 -fparse-only %s >> %t;
|
|
! EXEC: cat %t | ${FileCheck} %s;
|
|
! CHECK:f:.*getdefinition03-b.f90, 2, 12-13
|
|
! CHECK:x:.*getdefinition03-a.f90, 7, 13-14
|