tests: Add a test for forall Fortran issue

Test file from Alexander Eberspächer.
This commit is contained in:
Colomban Wendling 2013-06-24 22:53:54 +02:00
parent 2f31f7477b
commit e4f82f28b7
3 changed files with 32 additions and 0 deletions

View File

@ -120,6 +120,7 @@ test_sources = \
enum.java \
events.cs \
extern_variable.h \
forall_module.f90 \
format.pl \
func_typedef.h \
general.cs \

View 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

View 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