flang/test/Driver/flarge-sizes.f90

   1 ! Ensure argument -flarge-sizes works as expected.
   2 ! TODO: Add checks when actual codegen is possible.
   3
   4 !--------------------------
   5 ! FLANG DRIVER (flang)
   6 !--------------------------
   7 ! RUN: rm -rf %t/dir-flang  && mkdir -p %t/dir-flang && %flang -fsyntax-only -module-dir %t/dir-flang %s  2>&1
   8 ! RUN: cat %t/dir-flang/m.mod | FileCheck %s --check-prefix=NOLARGE
   9 ! RUN: rm -rf %t/dir-flang  && mkdir -p %t/dir-flang && %flang -fsyntax-only -flarge-sizes -module-dir %t/dir-flang %s  2>&1
  10 ! RUN: cat %t/dir-flang/m.mod | FileCheck %s --check-prefix=LARGE
  11
  12 !-----------------------------------------
  13 ! FRONTEND FLANG DRIVER (flang -fc1)
  14 !-----------------------------------------
  15 ! RUN: rm -rf %t/dir-flang  && mkdir -p %t/dir-flang && %flang_fc1 -fsyntax-only -module-dir %t/dir-flang %s  2>&1
  16 ! RUN: cat %t/dir-flang/m.mod | FileCheck %s --check-prefix=NOLARGE
  17 ! RUN: rm -rf %t/dir-flang  && mkdir -p %t/dir-flang && %flang_fc1 -fsyntax-only -flarge-sizes -module-dir %t/dir-flang %s  2>&1
  18 ! RUN: cat %t/dir-flang/m.mod | FileCheck %s --check-prefix=LARGE
  19
  20 ! NOLARGE: real(4)::z(1_8:10_8)
  21 ! NOLARGE-NEXT: integer(4),parameter::size_kind=4_4
  22
  23 ! LARGE: real(4)::z(1_8:10_8)
  24 ! LARGE-NEXT: integer(4),parameter::size_kind=8_4
  25
  26 module m
  27   implicit none
  28   real :: z(10)
  29   integer, parameter :: size_kind = kind(ubound(z, 1)) !-flarge-sizes
  30 end