[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Parser / compiler-directives.f90
blob1e6c67dff3c1cfeab2792cf16408036cf48776db
1 ! RUN: %flang_fc1 -fdebug-unparse %s 2>&1
3 ! Test that compiler directives can appear in various places.
5 !dir$ integer
6 module m
7 !dir$ integer
8 use iso_fortran_env
9 !dir$ integer
10 implicit integer(a-z)
11 !dir$ integer
12 !dir$ integer=64
13 !dir$ integer = 64
14 !dir$ optimize:1
15 !dir$ optimize : 1
16 !dir$ loop count (10000)
17 !dir$ loop count (1, 500, 5000, 10000)
18 end