flang/test/Parser/line-directive.f90

   1 ! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s
   2 !CHECK: #line "{{.*[/\\]}}line-directive.f90" 3
   3 subroutine s
   4   implicit none
   5   a = 1.
   6 #line 100
   7 !CHECK: #line 101
   8   b = 2.
   9 #line "sourceFile.cobol" 200
  10 !CHECK: #line "sourceFile.cobol" 201
  11   c = 3.
  12 # 300
  13 !CHECK: #line 301
  14   d = 4.
  15 # "/dev/random" 400
  16 !CHECK: #line "/dev/random" 401
  17   e = 5.
  18 end