add test package

Author: perazz

example_packages/many_targets/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/many_targets/app/run1.f90

@@ -0,0 +1,6 @@
+program run1
+    use file_mod 
+    implicit none
+    call print_file("run",1)
+    stop 0
+end program run1 

example_packages/many_targets/app/run2.f90

@@ -0,0 +1,6 @@
+program run2
+    use file_mod 
+    implicit none
+    call print_file("run",2)
+    stop 0
+end program run2

example_packages/many_targets/app/run3.f90

@@ -0,0 +1,6 @@
+program run3
+    use file_mod 
+    implicit none
+    call print_file("run",3)
+    stop 0
+end program run3

example_packages/many_targets/example/example1.f90

@@ -0,0 +1,6 @@
+program example1
+    use file_mod 
+    implicit none
+    call print_file("example",1)
+    stop 0
+end program example1 

example_packages/many_targets/example/example2.f90

@@ -0,0 +1,6 @@
+program example2
+    use file_mod 
+    implicit none
+    call print_file("example",2)
+    stop 0
+end program example2

example_packages/many_targets/example/example3.f90

@@ -0,0 +1,6 @@
+program example3
+    use file_mod 
+    implicit none
+    call print_file("example",3)
+    stop 0
+end program example3

example_packages/many_targets/fpm.toml

@@ -0,0 +1 @@
+name = "many_targets"

example_packages/many_targets/src/file_mod.f90

@@ -0,0 +1,17 @@
+module file_mod
+   implicit none
+   public
+   contains
+   subroutine print_file(name,id)
+      character(*), intent(in) :: name
+      integer, intent(in) :: id
+      integer :: i
+      character(len(name)+1) :: nm
+      write(nm,1)name,id
+      open(newunit=i,file=nm//'.txt',form="formatted",action="write")
+      write(i, '(a)') nm
+      close(i)
+      1 format(a,i1)
+   end subroutine print_file
+end module file_mod
+      

example_packages/many_targets/test/test1.f90

@@ -0,0 +1,6 @@
+program test1
+    use file_mod 
+    implicit none
+    call print_file("test",1)
+    stop 0
+end program test1