Branch: refs/heads/master Author: Colomban Wendling ban@herbesfolles.org Committer: Colomban Wendling ban@herbesfolles.org Date: Mon, 24 Jun 2013 20:57:10 UTC Commit: e4f82f28b70ba5582c13d7543c930cd185e70938 https://github.com/geany/geany/commit/e4f82f28b70ba5582c13d7543c930cd185e709...

Log Message: ----------- tests: Add a test for forall Fortran issue

Test file from Alexander Eberspächer.

Modified Paths: -------------- tests/ctags/Makefile.am tests/ctags/forall_module.f90 tests/ctags/forall_module.f90.tags

Modified: tests/ctags/Makefile.am 1 files changed, 1 insertions(+), 0 deletions(-) =================================================================== @@ -120,6 +120,7 @@ test_sources = \ enum.java \ events.cs \ extern_variable.h \ + forall_module.f90 \ format.pl \ func_typedef.h \ general.cs \

Modified: tests/ctags/forall_module.f90 26 files changed, 26 insertions(+), 0 deletions(-) =================================================================== @@ -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

Modified: tests/ctags/forall_module.f90.tags 5 files changed, 5 insertions(+), 0 deletions(-) =================================================================== @@ -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

-------------- This E-Mail was brought to you by github_commit_mail.py (Source: https://github.com/geany/infrastructure).