31 lines · plain
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>&18! RUN: cat %t/dir-flang/m.mod | FileCheck %s --check-prefix=NOLARGE9! RUN: rm -rf %t/dir-flang && mkdir -p %t/dir-flang && %flang -fsyntax-only -flarge-sizes -module-dir %t/dir-flang %s 2>&110! RUN: cat %t/dir-flang/m.mod | FileCheck %s --check-prefix=LARGE11 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>&116! RUN: cat %t/dir-flang/m.mod | FileCheck %s --check-prefix=NOLARGE17! RUN: rm -rf %t/dir-flang && mkdir -p %t/dir-flang && %flang_fc1 -fsyntax-only -flarge-sizes -module-dir %t/dir-flang %s 2>&118! RUN: cat %t/dir-flang/m.mod | FileCheck %s --check-prefix=LARGE19 20! NOLARGE: real(4)::z(1_8:10_8)21! NOLARGE-NEXT: integer(4),parameter::size_kind=4_422 23! LARGE: real(4)::z(1_8:10_8)24! LARGE-NEXT: integer(4),parameter::size_kind=8_425 26module m27 implicit none28 real :: z(10)29 integer, parameter :: size_kind = kind(ubound(z, 1)) !-flarge-sizes30end31