tests: Add a test for forall Fortran issue
Test file from Alexander Eberspächer.
This commit is contained in:
parent
2f31f7477b
commit
e4f82f28b7
@ -120,6 +120,7 @@ test_sources = \
|
||||
enum.java \
|
||||
events.cs \
|
||||
extern_variable.h \
|
||||
forall_module.f90 \
|
||||
format.pl \
|
||||
func_typedef.h \
|
||||
general.cs \
|
||||
|
26
tests/ctags/forall_module.f90
Normal file
26
tests/ctags/forall_module.f90
Normal file
@ -0,0 +1,26 @@
|
||||
! a module that uses a forall block
|
||||
|
||||
module with_forall
|
||||
|
||||
real :: a
|
||||
|
||||
contains
|
||||
|
||||
subroutine sub_with_forall(x)
|
||||
real, intent(inout) :: x(:)
|
||||
|
||||
integer :: i
|
||||
|
||||
forall(i=1:size(x))
|
||||
x(i) = 0.5**i
|
||||
end forall
|
||||
end subroutine sub_with_forall
|
||||
|
||||
|
||||
function two() result(res)
|
||||
real :: res
|
||||
|
||||
res = 2.0
|
||||
end function two
|
||||
|
||||
end module with_forall
|
5
tests/ctags/forall_module.f90.tags
Normal file
5
tests/ctags/forall_module.f90.tags
Normal file
@ -0,0 +1,5 @@
|
||||
# format=tagmanager
|
||||
aÌ16384Îwith_forallÖ0
|
||||
sub_with_forallÌ64Îwith_forallÖ0
|
||||
twoÌ16Îwith_forallÖ0
|
||||
with_forallÌ256Ö0
|
Loading…
x
Reference in New Issue
Block a user