fortran: do label loop