tests: Add a missing test file (oops)

I forgot to add the files in 32074064ab91104d7bdfbb5dc0dcd97faf7f7f11,
oops.
This commit is contained in:
Colomban Wendling 2013-06-25 15:06:16 +02:00
parent 18bc2d92c1
commit f02b70949a
2 changed files with 24 additions and 0 deletions

View File

@ -0,0 +1,19 @@
! a module that uses procedure pointer
module proc_pointer
real :: a
procedure(sub), pointer :: my_pointer
contains
subroutine sub(x)
real, intent(inout) :: x(:)
integer :: i
do i=1,size(x)
x(i) = 0.5**i
end do
end subroutine sub
end module proc_pointer

View File

@ -0,0 +1,5 @@
# format=tagmanager
aĚ16384Îproc_pointerÖ0
my_pointerĚ16384Îproc_pointerÖ0
proc_pointerĚ256Ö0
subĚ64Îproc_pointerÖ0