c character cl close do do ... end do func function ifel if ... else ... end if if if ... end if i integer ida integerdimalloc id integerdim l logical mod module op open prog program re read r real rda realdimalloc rd realdim rec recursivfunc sel select sub subroutine t type dow while wr write