Sample Fortran File

! Sample Fortran 2008 program — samplefiles.com
module customers_mod
  implicit none
  type :: customer
    integer :: id
    character(len=16) :: name
    real(8) :: balance
  end type customer
contains
  logical function is_vip(c)
    type(customer), intent(in) :: c
    is_vip = c%balance >= 10000.0d0
  end function is_vip
end module customers_mod

program sample
  use customers_mod
  implicit none
  type(customer) :: customers(3)
  integer :: i

  customers(1) = customer(1, 'Ada', 12500.0d0)
  customers(2) = customer(2, 'Grace', 830.5d0)
  customers(3) = customer(3, 'Linus', 10000.0d0)