mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2026-06-15 13:21:00 +00:00
53 lines
1.2 KiB
Fortran
53 lines
1.2 KiB
Fortran
|
|
|
|
|
|
|
|
|
|
|
|
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), "Sports Memorabilia", 10, 20)
|
|
last=last+1
|
|
call init_item(items(last), "Aged Cheese", 2, 0)
|
|
last=last+1
|
|
call init_item(items(last), "Coffee Table Book", 5, 7)
|
|
last=last+1
|
|
call init_item(items(last), "Fine Italian Silk", 0, 80)
|
|
last=last+1
|
|
call init_item(items(last), "Fine Italian Silk", -1, 80)
|
|
last=last+1
|
|
call init_item(items(last), "Backstage passes to a concert", 15, 20)
|
|
last=last+1
|
|
call init_item(items(last), "Backstage passes to a concert", 10, 49)
|
|
last=last+1
|
|
call init_item(items(last), "Backstage passes to a concert", 5, 49)
|
|
! this Baked item doesn't yet work properly
|
|
last=last+1
|
|
call init_item(items(last), "Baked Chocolate 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
|