| program validattributes ! Tests that valid attributes (intent(inout)) are allowed. | |
| end program validattributes | |
| subroutine sub(y,z) !<<<<< 4, 1, 4, 5, integer; intent(inout) :: y, 0, 0, pass | |
| integer, intent(inout) :: y | |
| integer, intent(in) :: z | |
| end subroutine |