flang/test/Preprocessing/fixed-c-comment01.F

! RUN: %flang_fc1 -fsyntax-only %s
! RUN: %flang -E %s 2>&1 | FileCheck %s

      implicit none
      integer :: i, foobar

! CHECK-NOT: C comment
! CHECK: i = 1
/* Old style C comments
 *comments
 */
#define VAL 1

/* Single-line C comment */
 /* Single-line C comment */
  /* Single-line C comment */
   /* Single-line C comment */
    /* Single-line C comment */
     /* Single-line C comment */
      /* Single-line C comment */
       /* Single-line C comment */
      i = VAL

! CHECK-NOT: /*
! CHECK-NOT: Multi
! CHECK-NOT: C comment
! CHECK-NOT: */
! CHECK: i = 2
/*
 * Multi-line C comment
 * comment
 */
  /* Multi-line
C comment */
      i = 2

! CHECK: i = 3
! CHECK: i = 4
! CHECK: 9 i = 5+ 6
/* C comment + statement */ i = 3
      /* C comment + statement */ i = 4
/**/90i = 5
/**/ + + 6

! CHECK-NOT: /*
! CHECK-NOT: C comment
! CHECK-NOT: */
! CHECK: 100 i = 7
/* Multi-line C comment + statement
*/100 i = 7

! CHECK: i = 8
! CHECK-NOT: C comment
      i = 8 /* C comment after statement */

! CHECK: i = 9
! CHECK-NOT: 8
      i = 9
* */ 88

! When compiling, the line below should become: foobar = 123
      foo/* c */ bar = 123

! CHECK: print
! CHECK-NOT: C comment
	print *, "TAB"
	/* C comment after tab */
      end