First commit of Fortran version of GildedRose

fortran/test/GildedRose_text_test.f90

@@ -0,0 +1,52 @@
+
+
+
+
+
+
+program GildedRose_text_test
+  use GildedRose
+  implicit none
+  type(Item) :: items(9)
+  integer :: last
+  integer :: day
+  integer :: index
+
+  last = 1
+
+  call init_item(items(last), "+5 Dexterity Vest", 10, 20)
+  last=last+1
+  call init_item(items(last), "Aged Brie", 2, 0)
+  last=last+1
+  call init_item(items(last), "Elixir of the Mongoose", 5, 7)
+  last=last+1
+  call init_item(items(last), "Sulfuras, Hand of Ragnaros", 0, 80)
+  last=last+1
+  call init_item(items(last), "Sulfuras, Hand of Ragnaros", -1, 80)
+  last=last+1
+  call init_item(items(last), "Backstage passes to a TAFKAL80ETC concert", 15, 20)
+  last=last+1
+  call init_item(items(last), "Backstage passes to a TAFKAL80ETC concert", 10, 49)
+  last=last+1
+  call init_item(items(last), "Backstage passes to a TAFKAL80ETC concert", 5, 49)
+  ! this Conjured item doesn't yet work properly
+  last=last+1
+  call init_item(items(last), "Conjured Mana Cake", 3, 6)
+
+  write(*,*) "OMGHAI!"
+
+
+  do day = 1, 2
+      write(*,*) "-------- day "//int2str(day)//" --------"
+      write(*,*) "name, sellIn, quality"
+      do index = 1, last
+        call print_item(items(index))
+      end do
+
+      write(*,*) " "
+
+      call update_quality(items, last)
+  enddo 
+
+
+end program

fortran/test/GildedRose_unity_test.f90

@@ -0,0 +1,20 @@
+
+
+
+
+
+
+program GildedRose_texttest
+  use GildedRose
+  implicit none
+  type(Item) :: it
+
+  call init_item(it, "foo", 10, 20)
+  if (trim(it%name) /= "foo" ) then
+    write(*,*) "ERRORUnity test Failed"
+    stop 1
+  else
+    write(*,*) "Unity test OK"
+  endif
+
+end program