diff --git a/fortran/test/GildedRose_unity_test.f90 b/fortran/test/GildedRose_unity_test.f90
index bbafc7bd..82032a67 100644
--- a/fortran/test/GildedRose_unity_test.f90
+++ b/fortran/test/GildedRose_unity_test.f90
@@ -4,13 +4,14 @@
 
 
 
-program GildedRose_texttest
+program GildedRose_unity_test
   use GildedRose
   implicit none
-  type(Item) :: it
+  type(Item):: it(1)
 
-  call init_item(it, "foo", 10, 20)
-  if (trim(it%name) /= "fixMe" ) then
+  call init_item(it(1), "foo", 10, 20)
+  call update_quality(it, 1)
+  if (trim(it(1)%name) /= "fixMe" ) then
     write(*,*) "ERRORUnity test Failed"
     stop 1
   else