| c { dg-do compile } | |
| c { dg-options "-fdec-include" } | |
| subroutine foo | |
| implicit none | |
| 0include 'include_10.inc' | |
| i = 1 | |
| end subroutine foo | |
| subroutine bar | |
| implicit none | |
| i | |
| ;n | |
| +c | |
| c some comment | |
| ll | |
| C comment line | |
| uu | |
| DD | |
| ee'include_10.inc' | |
| i = 1 | |
| end subroutine bar | |
| subroutine baz | |
| implicit none | |
| 0include | |
| + 'include_10.inc' | |
| i = 1 | |
| end subroutine baz | |
| subroutine qux | |
| implicit none | |
| i n C lude 'inc | |
| * another comment line | |
| &lude_10.inc' | |
| i = 1 | |
| end subroutine qux | |
| subroutine quux | |
| implicit none | |
| 0inc | |
| 1lud | |
| 2e ' | |
| 3include_10.inc' | |
| i = 1 | |
| end subroutine quux | |
| program include_12 | |
| implicit none | |
| include | |
| ! comment | |
| +'include_10.inc' | |
| end program | |
| subroutine quuz | |
| implicit none | |
| integer include | |
| include | |
| +"include_10.inc" | |
| i = 1 | |
| include | |
| + = 2 | |
| write (*,*) include | |
| end subroutine quuz | |
| subroutine corge | |
| implicit none | |
| include | |
| +'include_10.inc' | |
| i = 1 | |
| end subroutine corge |