| function doesntwork_p8(c,a1,a2,a3,a4,a5,a6) | |
| implicit none | |
| character(len=20) :: doesntwork_p8 | |
| character :: c | |
| integer :: a1,a2,a3,a4,a5,a6 | |
| if (a1 /= 1 .or. a2 /= 2 .or. a3 /= 3 .or. a4 /= 4 .or. a5 /= 5 | |
| & .or. a6 /= 6) stop 1 | |
| if (c /= 'o ') stop 2 | |
| doesntwork_p8 = 'foo' | |
| return | |
| end |