| program unused_variables !<<<<<1,1,pass | |
| implicit none | |
| integer x,y,z !Integers are declared | |
| real :: a,b,c !Reals are declared | |
| y = 6 !Only y is used so far | |
| z = y + 9 !Now z is used as well | |
| a = 7.0 !Value is assigned to variable a | |
| end program unused_variables |