From e4f82f28b70ba5582c13d7543c930cd185e70938 Mon Sep 17 00:00:00 2001
From: Colomban Wendling <ban@herbesfolles.org>
Date: Mon, 24 Jun 2013 22:53:54 +0200
Subject: [PATCH] tests: Add a test for forall Fortran issue
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Test file from Alexander Eberspächer.
---
 tests/ctags/Makefile.am            |  1 +
 tests/ctags/forall_module.f90      | 26 ++++++++++++++++++++++++++
 tests/ctags/forall_module.f90.tags |  5 +++++
 3 files changed, 32 insertions(+)
 create mode 100644 tests/ctags/forall_module.f90
 create mode 100644 tests/ctags/forall_module.f90.tags

diff --git a/tests/ctags/Makefile.am b/tests/ctags/Makefile.am
index 79f30a548..e49c87e01 100644
--- a/tests/ctags/Makefile.am
+++ b/tests/ctags/Makefile.am
@@ -120,6 +120,7 @@ test_sources = \
 	enum.java						\
 	events.cs						\
 	extern_variable.h				\
+	forall_module.f90				\
 	format.pl						\
 	func_typedef.h					\
 	general.cs						\
diff --git a/tests/ctags/forall_module.f90 b/tests/ctags/forall_module.f90
new file mode 100644
index 000000000..e19f409f2
--- /dev/null
+++ b/tests/ctags/forall_module.f90
@@ -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
diff --git a/tests/ctags/forall_module.f90.tags b/tests/ctags/forall_module.f90.tags
new file mode 100644
index 000000000..f5ca57c1c
--- /dev/null
+++ b/tests/ctags/forall_module.f90.tags
@@ -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
-- 
2.11.4.GIT