29 lines
1.4 KiB
Fortran
29 lines
1.4 KiB
Fortran
! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
|
|
! CHECK: end.f:3:7: error: Program unit END statement may not be continued in fixed form source
|
|
e
|
|
+ nd
|
|
! CHECK: end.f:6:7: error: Program unit END statement may not be continued in fixed form source
|
|
end prog
|
|
+ ram
|
|
! CHECK: end.f:9:7: error: Program unit END statement may not be continued in fixed form source
|
|
end
|
|
+ program
|
|
! CHECK: end.f:12:7: error: Program unit END statement may not be continued in fixed form source
|
|
end
|
|
+ program
|
|
1 main
|
|
! CHECK: end.f:16:7: error: Program unit END statement may not be continued in fixed form source
|
|
end program
|
|
1 main
|
|
! CHECK: end.f:19:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source
|
|
end
|
|
+ = end + 1
|
|
! CHECK: end.f:22:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source
|
|
end module
|
|
+ = end module + 1
|
|
! CHECK-NOT: end.f:25:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source
|
|
end =
|
|
+ end + 1
|
|
! CHECK-NOT: end.f:28:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source
|
|
end block data (
|
|
+ 1) = 666
|