[flang] Fix test
authorTim Keith <tkeith@nvidia.com>
Mon, 1 Apr 2019 14:15:03 +0000 (07:15 -0700)
committerTim Keith <tkeith@nvidia.com>
Mon, 1 Apr 2019 14:15:03 +0000 (07:15 -0700)
A sequence type must have a component.

Original-commit: flang-compiler/f18@937b3eaf068651a8fb07e45348ef119b0e420b70
Reviewed-on: https://github.com/flang-compiler/f18/pull/368

flang/test/semantics/modfile23.f90

index 584ca42..85dc6d7 100644 (file)
@@ -18,6 +18,7 @@ module m1
   integer(8) :: i
   type t1
     sequence
+    integer :: j
   end type
   type t2
   end type
@@ -27,6 +28,7 @@ end
 ! integer(8)::i
 ! type::t1
 !  sequence
+!  integer(4)::j
 ! end type
 ! type::t2
 ! end type