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 26module m 27 implicit none 28 real :: z(10) 29 integer, parameter :: size_kind = kind(ubound(z, 1)) !-flarge-sizes 30end 31