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 \
|
enum.java \
|
||||||
events.cs \
|
events.cs \
|
||||||
extern_variable.h \
|
extern_variable.h \
|
||||||
|
forall_module.f90 \
|
||||||
format.pl \
|
format.pl \
|
||||||
func_typedef.h \
|
func_typedef.h \
|
||||||
general.cs \
|
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