Update example.f90