Merge pull request #399 from vil02/add_fortran90_examples

tests: add fortran90 examples

Author: vil02

tests/unused_example_data/fortran90/function_used_twice.f90

@@ -0,0 +1,15 @@
+program main
+    implicit none
+    call fun_1()
+contains
+    subroutine fun_0()
+        write (*, "(A)", advance="no") "{"
+        write (*, "(A)", advance="no") "%"
+    end subroutine fun_0
+
+    subroutine fun_1()
+        call fun_0()
+        write (*, *)
+        call fun_0()
+    end subroutine fun_1
+end program main

tests/unused_example_data/fortran90/one_empty_function.f90

@@ -0,0 +1,12 @@
+program main
+    implicit none
+    call fun_1()
+contains
+    subroutine fun_0()
+    end subroutine fun_0
+
+    subroutine fun_1()
+        call fun_0()
+        write (*, "(A)", advance="no") "C"
+    end subroutine fun_1
+end program main

tests/unused_example_data/fortran90/single_atom.f90

@@ -0,0 +1,4 @@
+program main
+    implicit none
+    write (*, "(A)", advance="no") "X"
+end program main

tests/unused_example_data/fortran90/trivial.f90

@@ -0,0 +1,3 @@
+program main
+    implicit none
+end program main