Words containing "the" substring: Difference between revisions

</pre>

=={{header|Fortran}}==

<lang fortran>

program main

implicit none

integer :: lun

character(len=256) :: line

integer :: ios

open(file='unixdict.txt',newunit=lun)

do

read(lun,'(a)',iostat=ios)line

if(ios /= 0)exit

if( index(line,'the') /= 0 .and. len_trim(line) > 11 ) then

write(*,'(a)')trim(line)

endif

enddo

end program main

</lang>

{{out}}

<pre>

authenticate

chemotherapy

chrysanthemum

clothesbrush

clotheshorse

eratosthenes

featherbedding

featherbrain

featherweight

gaithersburg

hydrothermal

lighthearted

mathematician

neurasthenic

nevertheless

northeastern

northernmost

otherworldly

parasympathetic

physiotherapist

physiotherapy

psychotherapeutic

psychotherapist

psychotherapy

radiotherapy

southeastern

southernmost

theoretician

weatherbeaten

weatherproof

weatherstrip

weatherstripping