flang/test/Driver/get-definition.f90

   1 ! Verify that the driver correctly rejects invalid values for -fget-definition
   2
   3 ! RUN: not %flang_fc1 -fget-definition 36 1 2 %s 2>&1 | FileCheck --check-prefix=OK %s
   4 ! RUN: not %flang_fc1 -fget-definition a 1 1 %s 2>&1 | FileCheck --check-prefix=ERROR-a %s
   5 ! RUN: not %flang_fc1 -fget-definition 1 b 1 %s 2>&1 | FileCheck --check-prefix=ERROR-b %s
   6 ! RUN: not %flang_fc1 -fget-definition 1 1 c %s 2>&1 | FileCheck --check-prefix=ERROR-c %s
   7 ! RUN: not %flang_fc1 -fget-definition a b 1 %s 2>&1 | FileCheck --check-prefix=ERROR-ab %s
   8 ! RUN: not %flang_fc1 -fget-definition a b c %s 2>&1 | FileCheck --check-prefix=ERROR-abc %s
   9 ! RUN: not %flang_fc1 -fget-definition 1 b c %s 2>&1 | FileCheck --check-prefix=ERROR-bc %s
  10 ! RUN: not %flang_fc1 -fget-definition a 1 c %s 2>&1 | FileCheck --check-prefix=ERROR-ac %s
  11
  12 ! OK: String range: >m<
  13 ! OK-NOT: error
  14
  15 ! ERROR-a: error: invalid value 'a' in 'fget-definition'
  16 ! ERROR-a-NOT: String range: >m<
  17
  18 ! ERROR-b: error: invalid value 'b' in 'fget-definition'
  19 ! ERROR-b-NOT: String range: >m<
  20
  21 ! ERROR-c: error: invalid value 'c' in 'fget-definition'
  22 ! ERROR-c-NOT: String range: >m<
  23
  24 ! ERROR-ab: error: invalid value 'a' in 'fget-definition'
  25 ! ERROR-ab-NOT: String range: >m<
  26
  27 ! ERROR-ac: error: invalid value 'a' in 'fget-definition'
  28 ! ERROR-ac-NOT: String range: >m<
  29
  30 ! ERROR-bc: error: invalid value 'b' in 'fget-definition'
  31 ! ERROR-bc-NOT: String range: >m<
  32
  33 ! ERROR-abc: error: invalid value 'a' in 'fget-definition'
  34 ! ERROR-abc-NOT: String range: >m<
  35
  36 module m
  37 end module