[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Driver / code-gen-x86.f90
blobb2bf95613efae9cbb3ee9cc150879092bb77e537
1 ! Test -emit-obj (X86)
3 ! REQUIRES: x86-registered-target, aarch64-registered-target
5 ! RUN: rm -f %t.o
6 ! RUN: %flang_fc1 -triple x86_64-unknown-linux-gnu -emit-obj %s -o %t.o
7 ! RUN: llvm-objdump --triple x86_64-unknown-linux-gnu --disassemble-all %t.o | FileCheck %s --check-prefix=CORRECT_TRIPLE
8 ! RUN: rm -f %t.o
9 ! RUN: %flang --target=x86_64-unknown-linux-gnu -c %s -o %t.o
10 ! RUN: llvm-objdump --triple x86_64-unknown-linux-gnu --disassemble-all %t.o | FileCheck %s --check-prefix=CORRECT_TRIPLE
12 ! RUN: %flang -c --target=x86_64-unknown-linux-gnu %s -o %t.o
13 ! RUN: llvm-objdump --triple aarch64-unknown-linux-gnu --disassemble-all %t.o | FileCheck %s --check-prefix=INCORRECT_TRIPLE
15 ! CORRECT_TRIPLE-LABEL: <_QQmain>:
16 ! CORRECT_TRIPLE-NEXT: retq
18 ! When incorrect triple is used to disassemble, there won't be a ret(q) instruction at all.
19 ! INCORRECT_TRIPLE-LABEL: <_QQmain>:
20 ! INCORRECT_TRIPLE-NOT: ret
22 end program